jan 31 2008

define movewall:
 while front_is_clear:
  move
define pickall:
 while next_to_a_beeper:
  pickbeeper
define cleartowall:
 pickall
 while not_next_to_a_beeper:
  move
  pickall
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