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