iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion encu(n) como inicio
avanza;
avanza;
gira(1);
avanza;
si junto-a-zumbador entonces inicio
gira(1);
avanza;
repetir n veces
deja-zumbador;
apagate;
fin
sino inicio
avanza;
gira(3);
encu(n);
fin;
fin;

define-nueva-instruccion busca(n) como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
avanza;
gira(3);
fin;
busca(n);
fin
sino inicio
encu(n);
fin;
fin;

define-nueva-instruccion dos(n) como inicio
si junto-a-zumbador entonces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
coge-zumbador;
dos(sucede(n));
fin
sino inicio
deja-zumbador;
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
mientras frente-libre hacer
avanza;
gira(2);
busca(n)
fin;
gira(1);
fin;
dos(n);
fin;
fin;
fin
sino inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
dos(n);
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
mientras frente-libre hacer
avanza;
gira(2);
busca(n);
fin;
gira(1);
dos(n);
fin;
fin;
fin;
fin;

    inicia-ejecucion
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    gira(3);
    mientras frente-libre hacer
    avanza;
    gira(3);
    dos(0);
        apagate;
    termina-ejecucion
finalizar-programa
