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

define-nueva-instruccion expande como inicio
si junto-a-zumbador y orientado-al-norte entonces inicio
coge-zumbador;
expande;
deja-zumbador;
si frente-libre entonces
avanza;
fin;
fin;
define-nueva-instruccion reparte como inicio
si junto-a-zumbador entonces inicio
expande;
girando(2);
mientras frente-libre y orientado-al-sur hacer
avanza;
gira-izquierda;
si frente-libre y orientado-al-este entonces inicio
avanza;
gira-izquierda;
reparte;
fin;
fin;
fin;
define-nueva-instruccion zumbadores como
inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
zumbadores;
si frente-libre entonces
avanza;
fin
sino inicio
girando(2);
fin;
fin;

define-nueva-instruccion checa(n) como inicio
 si frente-libre y orientado-al-este y no-junto-a-zumbador entonces inicio
 avanza;
checa(n);
 fin;
si frente-bloqueado  y orientado-al-este y no-junto-a-zumbador entonces inicio
girando(2);
mientras frente-libre y orientado-al-oeste hacer
avanza;
gira-izquierda;
si frente-libre y orientado-al-sur entonces inicio
avanza;
fin
sino
si frente-bloqueado y derecha-bloqueada entonces inicio
repetir n veces
deja-zumbador;
apagate;
fin;
gira-izquierda;
checa(n);
fin
sino inicio
si junto-a-zumbador entonces inicio
girando(3);
coge-zumbador;
si frente-libre y orientado-al-sur entonces
avanza;
zumbadores;
checa(sucede(n));
fin;
girando(3);
mientras no-junto-a-zumbador y  orientado-al-este y frente-libre hacer
avanza;
si junto-a-zumbador entonces inicio
coge-zumbador;
girando(3);
si frente-libre entonces
avanza;
zumbadores;
fin;
checa(n);
fin;
fin;


    inicia-ejecucion
    gira-izquierda;
    reparte;
    mientras no orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre y orientado-al-oeste hacer
    avanza;
    girando(3);
    mientras frente-libre y orientado-al-norte hacer
    avanza;
    girando(3);

    checa(0);

        apagate;
    termina-ejecucion
finalizar-programa
