BEGINNING_OF_PROGRAM
  DEFINE_NEW_INSTRUCTION TURNRIGHT AS 
    {ITERATE 3 TIMES
       TURNLEFT;
    }
  DEFINE_NEW_INSTRUCTION BUSCA_PARED AS
     {IF FRONT_IS_CLEAR THEN
         {MOVE;
          TURNLEFT;
           IF FRONT_IS_BLOCKED THEN
               {TURNLEFT;
                  MOVE;
                  TURNLEFT;
                  }
           ELSE 
               	{MOVE;
                     TURNLEFT;
                     TURNLEFT;   
                      MOVE;
                       TURNLEFT;
                    }
          }
     }
BEGINNING_OF_EXECUTION
WHILE FRONT_IS_CLEAR DO
      BUSCA_PARED;
TURNLEFT;MOVE;TURNLEFT;
WHILE FRONT_IS_CLEAR DO
BUSCA_PARED;
TURNOFF;
END_OF_EXECUTION
END_OF_PROGRAM