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