open Gfile open Tools open Display open FordFulkerson open IoApp open AppTools let () = let xs = List.rev (enterAllChoices ()) in let () = displayAllChoices xs in (); let g = buildGraph xs in let () = exportBase g "./outFileApp" in ()