iniciar-programa
 define-nueva-instruccion d como
  inicio
   gira-izquierda;
   si frente-libre entonces
    inicio
     avanza;
     si no-junto-a-zumbador entonces
      inicio
       gira-izquierda;
       gira-izquierda;
       avanza;
       gira-izquierda;
       gira-izquierda;
       d;
      fin;
    fin
   sino
    inicio
     d;
    fin;
  fin;
 define-nueva-instruccion c como
  inicio
   gira-izquierda;
   gira-izquierda;
   d;
   coge-zumbador;
   mientras no-junto-a-zumbador hacer
    inicio
     deja-zumbador;
     gira-izquierda;
     gira-izquierda;
     d;
     coge-zumbador;
    fin;
   deja-zumbador;
  fin;
 define-nueva-instruccion e(ee) como
  inicio
   si no si-es-cero(ee) entonces
    inicio
     repetir 3 veces
      inicio
       si derecha-libre entonces
        inicio
         coge-zumbador;
         coge-zumbador;
         si no-junto-a-zumbador entonces
          inicio
           deja-zumbador;
           deja-zumbador;
           repetir 3 veces
               gira-izquierda;
           avanza;
           gira-izquierda;
           gira-izquierda;
           si junto-a-zumbador entonces
            inicio
             avanza;
             repetir 3 veces
                 gira-izquierda;
             c;
             coge-zumbador;
             coge-zumbador;
             si junto-a-zumbador entonces
              inicio
               deja-zumbador;
               deja-zumbador;
              fin
             sino
              inicio
               deja-zumbador;
               deja-zumbador;
               e(precede(ee));
               coge-zumbador;
               coge-zumbador;
               si junto-a-zumbador entonces
                inicio
                 deja-zumbador;
                 deja-zumbador;
                fin
               sino
                inicio
                 deja-zumbador;
                 deja-zumbador;
                 c;
               fin;
              fin;
            fin
           sino
            inicio
             avanza;
            fin;
          fin
         sino
          inicio
           deja-zumbador;
           deja-zumbador;
          fin;
        fin
       sino
        inicio
         gira-izquierda;
        fin;
      fin;
    fin
   sino
    inicio
     coge-zumbador;
     coge-zumbador;
     si junto-a-zumbador entonces
      inicio
       deja-zumbador;
       deja-zumbador;
       deja-zumbador;
      fin
     sino
      inicio
       deja-zumbador;
       deja-zumbador;
       repetir 3 veces
           gira-izquierda;
      fin;
    fin;
  fin;
 define-nueva-instruccion b(bb) como
  inicio
   e(bb);
   gira-izquierda;
   coge-zumbador;
   coge-zumbador;
   si no-junto-a-zumbador entonces
    inicio
     deja-zumbador;
     deja-zumbador;
     b(sucede(bb));
    fin
   sino
    inicio
     coge-zumbador;
     repetir bb veces
         deja-zumbador;
    fin;
  fin;
 define-nueva-instruccion f como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     f;
     si junto-a-zumbador entonces
         coge-zumbador;
    fin
   sino
    inicio
     avanza;
    fin;
  fin;
 define-nueva-instruccion a(aa) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     a(sucede(aa));
    fin
   sino
    inicio
     deja-zumbador;
     deja-zumbador;
     b(1);
     mientras no-orientado-al-este hacer
         gira-izquierda;
     avanza;
     mientras junto-a-zumbador hacer
         coge-zumbador;
     repetir aa veces
         deja-zumbador;
     gira-izquierda;
     gira-izquierda;
     avanza;
     gira-izquierda;
     gira-izquierda;
     f;
    fin;
  fin;
    inicia-ejecucion
     a(0);
        apagate;
    termina-ejecucion
finalizar-programa
