TO ES :n
   IF :n = 0 [ STOP ]
   EAST 1
   SOUTH 1
   ES :n - 1
END
TO SE :n
   IF :n = 0 [ STOP ]
   SOUTH 1
   EAST 1
   SE :n - 1
END
TO NW :n
   IF :n = 0 [ STOP ]
   NORTH 1
   WEST 1
   NW :n - 1
END
TO WN :n
   IF :n = 0 [ STOP ]
   WEST 1
   NORTH 1
   WN :n - 1
END

NORTH 49
ES 49
EAST 50
ES 100
WEST 50
NW 49
SOUTH 49

WEST 50
SE 50
SOUTH 50
WN 100
NORTH 50
WN 50
EAST 50