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 PDP :N
   NORTH :N - 1
   ES    :N - 1
   EAST  :N
   ES    :N * 2
   WEST  :N 
   NW    :N - 1
   SOUTH :N - 1
   WEST  :N 
   SE    :N
   SOUTH :N
   WN    :N * 2
   NORTH :N
   WN    :N
   EAST  :N
END
PDP 6