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