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
TO N :x NORTH :x END 
TO E :x EAST :x  END 
TO S :x SOUTH :x END 
TO W :x WEST :x  END

N  2
ES 2
E  3
ES 6
W  3
NW 2
S  2

W  3
SE 3
S  3
WN 6
N  3
WN 3
E  3