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 3
ES    3
EAST  4
ES    8
WEST  4
NW    3
SOUTH 3

WEST  4
SE    4
SOUTH 4
WN    8
NORTH 4
WN    4
EAST  4