class program
{
(* Esta solucion definimos la funcion turnright() y escalon() *)

(* Funcion para girar a la derecha *)
define turnright()
{
    turnleft();
    turnleft();
    turnleft();
}

(* Funcion permite dejar un beeper y movernos para subir un escalon *)
define escalon()
{
    putbeeper();
    move();
    turnright(); (* aqui utilizamos la funcion de arriba*)
    move();
    turnleft();
}

program()
{
    (* Como hacemos una repeticion 7 veces, Karel no terminara en la  *)
    (* posicion que queremos, pero abremos conseguido el objetivo que *)
    (* es lo mas importante                                           *)
    iterate(7)
    {
        escalon();
    }
    (* ¿Que podemos hacer para terminar en el ultimo escalon? *)
    turnoff();
}

}