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  0
ES 0
E  1
ES 2
W  1
NW 0
S  0

W  1
SE 1
S  1
WN 2
N  1
WN 1
E  1