: edge-pvertices ( edge -- pvertices ) [ [ end-pvertex>> ] [ start-pvertex>> ] bi , [ 2dup eq? not ] [ next-pvertex>> dup , ] while 2drop ] V{ } make ;