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

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

define-nueva-instruccion menor(n) como inicio
si junto-a-zumbador entonces inicio
repetir n veces
coge-zumbador;
si junto-a-zumbador entonces inicio
repetir n veces
deja-zumbador;
si frente-libre entonces inicio
avanza;
menor(n);
fin;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
repetir n veces
deja-zumbador;
apagate;
fin;
fin
sino inicio
si frente-libre entonces inicio
avanza;
menor(n);
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(2);
menor(sucede(n));
fin;
fin;
fin;

define-nueva-instruccion cuenta 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(1);
avanza;
gira(1);
menor(1);

fin;
cuenta;
deja-zumbador;
fin
sino inicio
gira(3);
avanza;
fin;
fin;

define-nueva-instruccion haz como inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(3);
avanza;
gira(3);
mientras no junto-a-zumbador hacer
avanza;
coge-zumbador;
cuenta;
gira(1);
haz;
fin;

    inicia-ejecucion
    mientras no orientado-al-este hacer
    gira-izquierda;
    repe;
    haz;
         apagate;
    termina-ejecucion
finalizar-programa
