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