let to_string p = segs_to_string (to_segs p)