iniciar-programa
define-nueva-instruccion gira-derecha como inicio
gira-izquierda;
gira-izquierda;
gira-izquierda;
fin;

define-nueva-instruccion media-vuelta como inicio
gira-izquierda;
gira-izquierda;
fin;

define-nueva-instruccion paso-tortuga(x) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
paso-tortuga(sucede(x));
fin
sino inicio
repetir x veces deja-zumbador;
repetir 2 veces avanza;
gira-derecha;
mientras no junto-a-zumbador hacer avanza;
coge-zumbador;
repetir x veces avanza;
deja-zumbador;
gira-derecha;
mientras frente-libre hacer avanza;
gira-derecha;
mientras frente-libre hacer avanza;
gira-derecha;
repetir 2 veces avanza;
fin;
fin;

define-nueva-instruccion paso-liebre(x) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
paso-liebre(sucede(x));
fin
sino inicio
repetir x veces deja-zumbador;
repetir 2 veces avanza;
gira-derecha;
mientras no junto-a-zumbador hacer avanza;
coge-zumbador;
repetir x veces avanza;
deja-zumbador;
fin;
fin;

define-nueva-instruccion empatados-o-no como inicio
gira-derecha;
avanza;
si junto-a-zumbador entonces inicio
mientras frente-libre hacer avanza;
gira-derecha;
mientras frente-libre hacer avanza;
deja-zumbador;
apagate;
fin
sino inicio
mientras frente-libre hacer avanza;
gira-derecha;
mientras frente-libre hacer avanza;
gira-derecha;
deja-zumbador;
avanza;
fin;
fin;

inicia-ejecucion
        repetir 4 veces avanza;
        deja-zumbador;
        media-vuelta;
        repetir 3 veces avanza;
        media-vuelta;
        mientras frente-libre hacer inicio
        paso-tortuga(0);
        paso-liebre(0);
        empatados-o-no;
        fin;
        apagate;
    termina-ejecucion
finalizar-programa
