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