TO NETWORK :POINTS
IF EMPTY? :POINTS [STOP]
TRACE FIRST :POINTS
NETWORK BUTFIRST :POINTS
END
