let to_string p =
    String.concat ":" (List.rev_map string_of_node p)