iniciar-programa
 define-nueva-instruccion b(bb) como
  inicio
   coge-zumbador;
   mientras no-junto-a-zumbador hacer
    inicio
     deja-zumbador;
     avanza;
     gira-izquierda;
     repetir bb veces
         gira-izquierda;
     repetir bb veces
         gira-izquierda;
     avanza;
     gira-izquierda;
     si si-es-cero(bb) entonces
         gira-izquierda;
     si si-es-cero(bb) entonces
         gira-izquierda;
     coge-zumbador;
    fin;
   deja-zumbador;
  fin;
 define-nueva-instruccion a(aa) como
  inicio
   si no si-es-cero(aa) entonces
    inicio
     avanza;
     repetir 3 veces
         gira-izquierda;
     avanza;
     gira-izquierda;
     b(1);
     a(precede(aa));
     gira-izquierda;
     gira-izquierda;
     avanza;
     repetir 3 veces
         gira-izquierda;
     avanza;
     gira-izquierda;
     b(1);
     gira-izquierda;
     gira-izquierda;
     avanza;
     gira-izquierda;
     avanza;
     repetir 3 veces
         gira-izquierda;
     b(0);
     a(precede(aa));
     gira-izquierda;
     gira-izquierda;
     avanza;
     gira-izquierda;
     avanza;
     repetir 3 veces
         gira-izquierda;
     b(0);
     gira-izquierda;
     gira-izquierda;
    fin
   sino
    inicio
     si frente-libre entonces
      inicio
       avanza;
       si derecha-libre entonces
        inicio
         repetir 3 veces
             gira-izquierda;
         avanza;
         si junto-a-zumbador entonces
          inicio
           gira-izquierda;
           gira-izquierda;
           avanza;
           gira-izquierda;
           avanza;
           gira-izquierda;
           gira-izquierda;
          fin
         sino
          inicio
           gira-izquierda;
           gira-izquierda;
           avanza;
           repetir 3 veces
               gira-izquierda;
          fin;
        fin;
       si no-junto-a-zumbador y izquierda-libre entonces
        inicio
         mientras no-orientado-al-oeste hacer
             gira-izquierda;
         avanza;
         gira-izquierda;
         si no-junto-a-zumbador entonces
          inicio
           avanza;
           gira-izquierda;
           avanza;
           apagate;
          fin
         sino
          inicio
           avanza;
           gira-izquierda;
           avanza;
           gira-izquierda;

          fin;
        fin
       sino
        inicio
         si izquierda-bloqueada y no-junto-a-zumbador entonces
          inicio
           gira-izquierda;
           gira-izquierda;
           avanza;
           apagate;
          fin;
        fin;

      fin
     sino
      inicio
       apagate;
      fin;
    fin;
  fin;
 define-nueva-instruccion c(cc) como
  inicio
   a(cc);
   c(sucede(cc));
  fin;
    inicia-ejecucion
     mientras no-orientado-al-norte hacer
         gira-izquierda;
     c(0);
        apagate;
    termina-ejecucion
finalizar-programa
