iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion chokomil(z) como inicio
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
chokomil(sucede(z));
fin sino inicio
mientras frente-libre o junto-a-zumbador hacer inicio
si frente-libre entonces avanza;
coge-zumbador;
fin;
gira(1);
si frente-libre y orientado-al-este entonces inicio
avanza;
gira(1);
mientras junto-a-zumbador hacer avanza;
gira(2);
avanza;
chokomil(z);
fin;
si frente-bloqueado y orientado-al-este entonces inicio
gira(1);
mientras derecha-bloqueada hacer avanza;
repetir z veces deja-zumbador;
fin;
fin;
fin;
    define-nueva-instruccion lala(k) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
lala(sucede(k));
fin sino inicio
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
gira(1);
mientras no-junto-a-zumbador hacer avanza;
repetir precede(k) veces deja-zumbador;
apagate;
fin;
fin;
define-nueva-instruccion sanmarco(l) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
sanmarco(sucede(l));
fin sino inicio
repetir sucede(l) veces deja-zumbador;
fin;
fin;
      inicia-ejecucion
 mientras frente-libre hacer avanza;
 gira(1);
 mientras derecha-bloqueada hacer avanza;
 gira(3);
 avanza;
 mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
 coge-zumbador;
 gira(2);
 mientras frente-libre hacer avanza;
 gira(1);
 mientras frente-libre hacer avanza;
 gira(1);
 mientras no-junto-a-zumbador y frente-libre hacer avanza;
 gira(2);
 avanza;
 deja-zumbador;
 gira(2);
 avanza;
 gira(1);
 mientras junto-a-zumbador hacer avanza;
 gira(2);
 avanza;
 chokomil(0);
 gira(3);
 avanza;
 deja-zumbador;
  mientras junto-a-zumbador hacer inicio
 si junto-a-zumbador y orientado-al-este entonces inicio
 coge-zumbador;
 gira(2);
 avanza;
 si junto-a-zumbador y orientado-al-oeste entonces inicio
 coge-zumbador;
 gira(2);
 avanza;
 fin;
 si no-junto-a-zumbador y orientado-al-oeste entonces inicio
 gira(2);
 avanza;
 sanmarco(0);
 gira(2);
 mientras frente-libre hacer avanza;
 gira(1);
 mientras frente-libre hacer avanza;
 gira(1);
 mientras no-junto-a-zumbador hacer avanza;
 coge-zumbador;
 apagate;
 fin;
 fin;
 si no-junto-a-zumbador y orientado-al-este entonces inicio
 gira(2);
 avanza;
 lala(0);
 fin;
  fin;
       termina-ejecucion
finalizar-programa
