iniciar-programa
define-nueva-instruccion gira(n) como inicio
repetir n veces gira-izquierda;
fin;

define-nueva-instruccion vital(n) como inicio
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
vital(sucede(n));
fin
sino inicio
si orientado-al-sur entonces inicio
mientras frente-libre hacer avanza;
gira(1);
fin;
fin;
si frente-libre y orientado-al-este entonces inicio
avanza;
gira(1);
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
vital(sucede(n));
fin
sino inicio
mientras frente-libre hacer avanza;
gira(1);
fin;
fin
sino inicio
si orientado-al-este entonces inicio
gira(2);
mientras junto-a-zumbador hacer avanza;
repetir n veces deja-zumbador;
fin;
fin;
fin;


define-nueva-instruccion pa(k) como inicio
si frente-libre entonces inicio
avanza;
pa(sucede(k));
fin
sino inicio
gira(2);
mientras junto-a-zumbador hacer avanza;
gira(2);
vital(0);
gira(2);
mientras frente-libre hacer avanza;
gira(2);
repetir k veces avanza;
gira(2);
fin;
fin;
define-nueva-instruccion sobra(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
sobra(sucede(n));
fin
sino inicio
repetir n veces deja-zumbador;
repetir n veces inicio
si orientado-al-sur entonces coge-zumbador;
si orientado-al-oeste entonces inicio
si algun-zumbador-en-la-mochila entonces inicio
deja-zumbador;
fin
sino inicio
gira(1);
coge-zumbador;
fin;
fin;
fin;
fin;
fin;

define-nueva-instruccion quita(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
quita(sucede(n));
fin
sino inicio
si orientado-al-sur entonces inicio
mientras algun-zumbador-en-la-mochila hacer inicio
deja-zumbador;
fin;
repetir n veces coge-zumbador;
fin;
si orientado-al-oeste entonces inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
mientras derecha-bloqueada hacer avanza;
gira(3);
avanza;
mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
repetir n veces coge-zumbador;
fin;
fin;
fin;
define-nueva-instruccion come(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
come(sucede(n));
fin
sino inicio
mientras no-junto-a-zumbador hacer avanza;
repetir n veces deja-zumbador;
fin;
fin;
inicia-ejecucion
    pa(0);
    si no-junto-a-zumbador entonces inicio
    deja-zumbador;
    avanza;
    mientras no-junto-a-zumbador hacer avanza;
    gira(2);
    come(0);
    coge-zumbador;
    fin
    sino inicio
    gira(2);
    fin;
    sobra(0);
    quita(0);

        apagate;
    termina-ejecucion
finalizar-programa
