iniciar-programa
define-nueva-instruccion c(s) como inicio
si frente-libre entonces inicio
avanza;
c(sucede(s));
si no junto-a-zumbador entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
gira-izquierda;
mientras frente-libre hacer avanza;
gira-izquierda;
mientras no-junto-a-zumbador hacer avanza;
repetir 2 veces inicio
repetir s veces coge-zumbador;
fin;
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
repetir 3 veces gira-izquierda;
avanza;

mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
si frente-libre entonces avanza;
fin;
repetir 2 veces gira-izquierda;
avanza;
mientras junto-a-zumbador hacer avanza;
repetir 2 veces gira-izquierda;
avanza;
gira-izquierda;
fin;
fin;
fin;

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




    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira-izquierda;
    avanza;
    avanza;
    mientras no-orientado-al-este hacer gira-izquierda;
    mientras derecha-libre hacer avanza;
    repetir 2 veces gira-izquierda;
    avanza;
    repetir 2 veces gira-izquierda;
    c(1);
     mientras no-orientado-al-norte hacer gira-izquierda;
    avanza;
    avanza;
    avanza;
     avanza;
    mientras no-orientado-al-este hacer gira-izquierda;
    mientras derecha-libre hacer avanza;
    repetir 2 veces gira-izquierda;
    avanza;
     repetir 2 veces gira-izquierda;
    c2(1);
     mientras no-orientado-al-norte hacer gira-izquierda;
     mientras junto-a-zumbador y frente-libre hacer avanza;
     gira-izquierda;
     avanza;

     si junto-a-zumbador entonces inicio
     repetir 3 veces gira-izquierda;
     mientras junto-a-zumbador y frente-libre hacer avanza;
     repetir 2 veces gira-izquierda;
     mientras frente-libre hacer inicio
     mientras junto-a-zumbador hacer coge-zumbador;
     si frente-libre entonces avanza;
     fin;
     mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     gira-izquierda;
     avanza;
     gira-izquierda;
      mientras frente-libre y junto-a-zumbador hacer inicio
     mientras junto-a-zumbador hacer coge-zumbador;
     si frente-libre entonces avanza;
     fin;
      repetir 2 veces gira-izquierda;
      mientras frente-libre hacer avanza;
      gira-izquierda;
      mientras no junto-a-zumbador hacer avanza;
       mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     fin sino inicio
     repetir 2 veces gira-izquierda;
     avanza;
     repetir 3 veces gira-izquierda;
     mientras frente-libre hacer inicio
     mientras junto-a-zumbador hacer coge-zumbador;
     si frente-libre entonces avanza;
      mientras junto-a-zumbador hacer coge-zumbador;
      fin;
      repetir 3 veces gira-izquierda;
     avanza;
      mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
      repetir 3 veces gira-izquierda;
       avanza;
         mientras frente-libre y junto-a-zumbador hacer inicio
     mientras junto-a-zumbador hacer coge-zumbador;
     si frente-libre entonces avanza;
     fin;
      repetir 2 veces gira-izquierda;
       mientras frente-libre hacer avanza;
       gira-izquierda;
       avanza;
       mientras no-junto-a-zumbador hacer avanza;
        mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
     fin;

        apagate;
    termina-ejecucion
finalizar-programa
