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