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


define-nueva-instruccion g2(a) como inicio
si no junto-a-zumbador y frente-libre entonces inicio
repetir a veces inicio
si no-junto-a-zumbador entonces repetir a veces deja-zumbador;
si frente-libre entonces avanza;
fin;
si no-junto-a-zumbador entonces inicio
repetir 2 veces gira-izquierda;
SI FRENTE-LIBRE entonces avanza;
repetir 3 veces gira-izquierda;
SI FRENTE-LIBRE entonces avanza;
repetir 3 veces gira-izquierda;
g2(sucede(a));
 fin;
 fin;
 fin;
 define-nueva-instruccion gato como inicio
 si frente-libre entonces inicio
 SI FRENTE-LIBRE entonces avanza;
 gato;
 deja-zumbador;
 fin;
 fin;
 define-nueva-instruccion gato2 como inicio
 si junto-a-zumbador entonces inicio
 coge-zumbador;
 gato2;
 mientras no orientado-al-sur hacer gira-izquierda;
 mientras frente-libre hacer avanza;
 deja-zumbador;
 fin;
 fin;

define-nueva-instruccion tramp(a) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
tramp(sucede(a));
si no-junto-a-zumbador entonces inicio
repetir a veces deja-zumbador;
repetir 6 veces inicio
si junto-a-zumbador entonces  coge-zumbador;
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
si no junto-a-zumbador entonces  inicio
repetir 2 veces gira-izquierda;
avanza;
gira-izquierda;
repetir 13 veces inicio
si frente-libre entonces avanza;
fin;
si junto-a-zumbador y frente-libre entonces inicio
repetir 2 veces gira-izquierda;
mientras frente-libre hacer avanza;
mientras junto-a-zumbador hacer coge-zumbador;
repetir 11 veces deja-zumbador;
fin;
fin;
fin;
fin;
fin;
fin;







    inicia-ejecucion
    mientras no orientado-al-norte hacer gira-izquierda;
    mientras no junto-a-zumbador hacer avanza;
    g(1);
    repetir 3 veces gira-izquierda;
    si junto-a-zumbador y frente-libre entonces avanza;
    repetir 3 veces gira-izquierda;
    si izquierda-bloqueada entonces inicio
    mientras frente-libre hacer avanza;
    deja-zumbador;
    fin;

    g2(1);
    si frente-bloqueado entonces inicio
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    mientras frente-libre hacer avanza;
    mientras junto-a-zumbador hacer coge-zumbador;
    repetir 2 veces gira-izquierda;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
     repetir 2 veces gira-izquierda;
    gato;
    deja-zumbador;
    fin sino inicio
    mientras frente-libre hacer avanza;
    deja-zumbador;
    si frente-bloqueado entonces inicio
    repetir 3 veces gira-izquierda;
    si frente-libre entonces avanza;
    mientras frente-libre hacer avanza;
    mientras junto-a-zumbador hacer coge-zumbador;
    repetir 2 veces gira-izquierda;
    mientras no junto-a-zumbador y frente-libre hacer avanza;
     repetir 2 veces gira-izquierda;
    gato;
    deja-zumbador;
    fin;
    fin;

    si izquierda-libre entonces inicio
    gato2;
    fin;

    mientras no orientado-al-norte hacer gira-izquierda;
    si frente-libre entonces avanza;
    tramp(1);
    si frente-bloqueado y derecha-bloqueada y izquierda-bloqueada entonces deja-zumbador;
    si frente-bloqueado y no junto-a-zumbador y  izquierda-bloqueada entonces repetir  2 veces  deja-zumbador;









        apagate;
    termina-ejecucion
finalizar-programa
