let rec generate_possible_paths n m l =
    if List.length l = 0
    then []
    else List.map (fun c -> c::l) (possible_squares_by_path n m l)
;;