open Gfile
    open Tools
    open Display
    open FordFulkerson
    open IoApp
    open AppTools

    let () =

        let xs = List.rev (enterAllChoices ()) in
        let () = displayAllChoices (List.map (
                fun x -> match x with
                    | (a,_,_) -> a
            )
        xs) in
        ();


        let g = buildGraph xs in

        let ys = enterChildren (getMaximumNodeId g) xs in

        let gComplete = addChildren ys g in

        let gFinal = main gComplete (getMaximumNodeId gComplete) 0 in

        let () = exportBase gFinal "./outFileApp" in
        ();

        let () = outputData gFinal ys xs in
        (); print_string "\n\n"