: edge-pvertices ( edge -- pvertices ) [ start-pvertex>> ] [ end-pvertex>> ] bi [ 2dup eq? not ] [ [ next-pvertex>> ] dip ] while drop ;