beginning_of_program
         define_new_instruction turnright as
         {turnleft;
          turnleft;
          turnleft;}
 define_new_instruction sube_escalon as
         {turnleft;
          move;
           turnright;
           move;}
beginning_of_execution
sube_escalon;
sube_escalon;
sube_escalon;
sube_escalon;
putbeeper;
turnoff;
end_of_execution
end_of_program