Post 12

define turneast:
while not_facing_east:
turnleft
define turnwest:
while not_facing_west:
turnleft
define turnnorth:
while not_facing_north:
turnleft
define turnsouth:
while not_facing_south:
turnleft
define pickall:
while next_to_a_beeper:
pickbeeper
define movewall:
while front_is_clear:
move
define cleartowall:
while front_is_clear:
pickall
move
pickall
cleartowall
turnleft
move
turnoff