iniciar-programa
 define-nueva-instruccion av(i) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     av(i);
     deja-zumbador;
    fin
   sino
    inicio
     repetir precede(i) veces
         avanza;
    fin;
  fin;
 define-nueva-instruccion mov(n) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     mov(sucede(n));
    fin
   sino
    inicio
     avanza;
     av(precede(n));
    fin;
  fin;
 define-nueva-instruccion e(j) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     e(sucede(j));
    fin
   sino
    inicio
     repetir j veces
      inicio
       avanza;
       repetir 3 veces
           gira-izquierda;
       avanza;
       repetir 3 veces
           gira-izquierda;
       av(2);
       gira-izquierda;
       gira-izquierda;
      fin;
    fin;
  fin;
 define-nueva-instruccion rec(a) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     rec(a);
     deja-zumbador;
    fin
   sino
    inicio
     si frente-libre entonces
         avanza;
     si junto-a-zumbador entonces
      inicio
       rec(a);
       si frente-libre entonces
           avanza;
      fin
     sino
      inicio
       si si-es-cero(a) entonces
       inicio
       mientras no-junto-a-zumbador y frente-libre hacer
           avanza;
       gira-izquierda;
       gira-izquierda;
       si junto-a-zumbador entonces
           avanza;
       fin
       sino
       inicio
       gira-izquierda;
       avanza;
       gira-izquierda;
       mientras junto-a-zumbador hacer
           avanza;
       fin;
      fin;
    fin;
  fin;
    inicia-ejecucion
     mientras no-orientado-al-norte hacer
         gira-izquierda;
     avanza;
     repetir 3 veces
         gira-izquierda;
     mov(0);
     repetir 3 veces
         gira-izquierda;
     e(0);
     avanza;
     gira-izquierda;
     mientras no-junto-a-zumbador hacer
         avanza;
     mientras junto-a-zumbador y frente-libre hacer
         avanza;
     gira-izquierda;
     gira-izquierda;
     si no-junto-a-zumbador entonces
         avanza;
     rec(0);
     gira-izquierda;
     avanza;
     gira-izquierda;
     mientras frente-libre hacer
         avanza;
     gira-izquierda;
     gira-izquierda;
     mientras no-junto-a-zumbador hacer
         avanza;
     mientras junto-a-zumbador y frente-libre hacer
         avanza;
     gira-izquierda;
     gira-izquierda;
     si no-junto-a-zumbador entonces
         avanza;
     rec(1);
        apagate;
    termina-ejecucion
finalizar-programa
