let rec string_of_path (path : path) = match path with
       | ((x,y) :: path') ->
           "(" ^ (string_of_int x) ^ "," ^ (string_of_int y) ^ 
             ") " ^ string_of_path path'
       | [] -> "\n"