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 pasada2 como inicio
si junto-a-zumbador entonces inicio
mientras junto-a-zumbador hacer avanza;
repetir 2 veces avanza;
gira-izquierda;
avanza;
gira-derecha;
si junto-a-zumbador entonces inicio
mientras junto-a-zumbador hacer avanza;
media-vuelta;
avanza;
coge-zumbador;
mientras frente-libre hacer avanza;
gira-izquierda;
avanza;
gira-izquierda;
mientras junto-a-zumbador hacer avanza;
deja-zumbador;
media-vuelta;
mientras frente-libre hacer avanza;
gira-derecha;
avanza;
gira-derecha;
pasada2;
fin
sino inicio
media-vuelta;
mientras frente-libre hacer avanza;
media-vuelta;
fin;
fin;
fin;

define-nueva-instruccion pasada1 como inicio
si junto-a-zumbador entonces inicio
mientras junto-a-zumbador hacer avanza;
avanza;
gira-izquierda;
avanza;
gira-derecha;
si junto-a-zumbador entonces inicio
mientras junto-a-zumbador hacer avanza;
media-vuelta;
avanza;
coge-zumbador;
mientras frente-libre hacer avanza;
gira-izquierda;
avanza;
gira-izquierda;
mientras junto-a-zumbador hacer avanza;
deja-zumbador;
media-vuelta;
mientras frente-libre hacer avanza;
gira-derecha;
avanza;
gira-derecha;
pasada2;
fin
sino inicio
media-vuelta;
mientras frente-libre hacer avanza;
media-vuelta;
pasada1;
fin;
fin;
fin;

define-nueva-instruccion erosion como inicio
gira-derecha;
mientras frente-libre hacer avanza;
media-vuelta;
mientras no junto-a-zumbador hacer avanza;
gira-derecha;
mientras frente-libre hacer inicio
mientras junto-a-zumbador hacer pasada1;
gira-izquierda;
mientras no junto-a-zumbador y frente-libre hacer avanza;
si junto-a-zumbador entonces inicio
gira-derecha;
fin;
fin;
gira-derecha;
fin;

define-nueva-instruccion era-g(x) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
era-g(sucede(x));
fin
sino inicio
repetir x veces erosion;
fin;
fin;

    inicia-ejecucion
        mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
        era-g(0);
        apagate;
    termina-ejecucion
finalizar-programa
