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 
{move;turnright;move;turnleft;}
define_new_instruction cuatro as 
{move; move;move;move;}
define_new_instruction vuelta as 
{turnleft;turnleft;turnleft;turnleft;}
beginning_of_execution
sube_escalon;
sube_escalon;
sube_escalon;
sube_escalon;
sube_escalon;
putbeeper;
baja_escalon;
baja_escalon;
baja_escalon;
baja_escalon;
putbeeper;
turnleft;
cuatro;
turnright;
sube_escalon;
putbeeper;
baja_escalon;
turnright;
cuatro;
move;
putbeeper;
move;
vuelta;
turnoff;
end_of_execution
end_of_program