iniciar-programa
define-nueva-instruccion g2(s) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
g2(sucede(s));
si no junto-a-zumbador entonces inicio
avanza;
repetir s veces coge-zumbador;
repetir 2 veces gira-izquierda;
repetir 2 veces avanza;
repetir s veces deja-zumbador;
repetir 2 veces gira-izquierda;
avanza;
repetir s veces deja-zumbador;
 fin;
 fin;
 fin;
 define-nueva-instruccion g3(e) como inicio
 si junto-a-zumbador entonces inicio
 coge-zumbador;
 g3(sucede(e));
 mientras no orientado-al-sur hacer gira-izquierda;
 si frente-libre entonces inicio
 mientras frente-libre hacer avanza;
 repetir e veces deja-zumbador;
 fin;
 fin;
 fin;


define-nueva-instruccion gato(a) como inicio
si frente-libre entonces inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
gato(sucede(a));
mientras frente-libre hacer inicio
avanza;
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
gira-izquierda;
avanza;
repetir 2 veces gira-izquierda;
g2(1);
repetir 2 veces avanza;
mientras junto-a-zumbador hacer coge-zumbador;
repetir 2 veces gira-izquierda;
avanza;
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
repetir a veces coge-zumbador;
repetir a veces inicio
si junto-a-zumbador entonces coge-zumbador;
fin;
g3(1);
si frente-bloqueado entonces inicio
repetir 2 veces gira-izquierda;
avanza;
fin;
repetir 3 veces gira-izquierda;
si frente-bloqueado entonces inicio
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
repetir a veces coge-zumbador;
gira-izquierda;
avanza;
avanza;
gira-izquierda;
mientras frente-libre hacer inicio
si frente-libre entonces avanza;
mientras junto-a-zumbador hacer coge-zumbador;
fin;
gira-izquierda;
avanza;
avanza;
gira-izquierda;
mientras frente-libre hacer avanza;
fin;
fin;
fin;
fin;
fin;



    inicia-ejecucion
      mientras no orientado-al-este hacer gira-izquierda;
      gato(1);




        apagate;
    termina-ejecucion
finalizar-programa
