iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion erosion(n) como inicio
si algun-zumbador-en-la-mochila entonces inicio
deja-zumbador;
erosion(sucede(n));
fin
sino inicio
coge-zumbador;
repetir n veces inicio
gira(3);
mientras frente-libre hacer avanza;
gira(2);
mientras frente-libre y no junto-a-zumbador hacer avanza;
gira(3);
mientras junto-a-zumbador hacer avanza;
gira(2);avanza;gira(2);

mientras izquierda-libre hacer inicio
si ningun-zumbador-en-la-mochila entonces coge-zumbador;
repetir 2 veces avanza;
gira(1);
avanza;

si junto-a-zumbador entonces inicio
gira(2);
avanza;
gira(3);
mientras no junto-a-zumbador y frente-libre hacer avanza;
gira(2);
avanza;
deja-zumbador;
gira(1);avanza;gira(3);
mientras junto-a-zumbador hacer avanza;
gira(2);avanza;gira(2);
fin

sino inicio
gira(1);
mientras no junto-a-zumbador y frente-libre hacer avanza;
gira(3);
mientras no junto-a-zumbador y frente-libre hacer avanza;
gira(3);
si izquierda-libre entonces inicio
mientras junto-a-zumbador hacer avanza;
gira(2);avanza;gira(2);
fin;
fin;


fin;
fin;

fin;
fin;
    inicia-ejecucion
    erosion(0);
    mientras junto-a-zumbador hacer coge-zumbador;
        apagate;
    termina-ejecucion
finalizar-programa
