let generate_long_paths n m (x,y) =
    let rec aux l =
            match generate_possible_paths n m l with
                | [] -> []
                | h::t -> generate_possible_paths n m h
    in aux [(x,y)]
;;