iniciar-programa
 define-nueva-instruccion r como
  inicio
   gira-izquierda;
   gira-izquierda;
   avanza;
   gira-izquierda;
   gira-izquierda;
  fin;
 define-nueva-instruccion b(bb) como
  inicio
   gira-izquierda;
   si frente-libre entonces
    inicio
     avanza;
     si no-junto-a-zumbador y no si-es-cero(bb) entonces
      inicio
       b(precede(bb));
      fin
     sino
      inicio
       si junto-a-zumbador entonces
        inicio
         coge-zumbador;
         si junto-a-zumbador entonces
          inicio
           deja-zumbador;
           deja-zumbador;
          fin
         sino
          inicio
           deja-zumbador;
          fin;
        fin;
      fin;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         deja-zumbador;
        fin
       sino
        inicio
         deja-zumbador;
         r;
        fin;
      fin
     sino
      inicio
       r;
      fin;
    fin;
   si no-junto-a-zumbador entonces
    inicio
   gira-izquierda;
   gira-izquierda;
   si frente-libre entonces
    inicio
     avanza;
     si no-junto-a-zumbador y no si-es-cero(bb) entonces
      inicio
       b(precede(bb));
      fin
     sino
      inicio
       si junto-a-zumbador entonces
        inicio
         coge-zumbador;
         si junto-a-zumbador entonces
          inicio
           deja-zumbador;
           deja-zumbador;
          fin
         sino
          inicio
           deja-zumbador;
          fin;
        fin;
      fin;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         deja-zumbador;
        fin
       sino
        inicio
         deja-zumbador;
         r;
        fin;
      fin
     sino
      inicio
       r;
      fin;
    fin;
   si no-junto-a-zumbador entonces
    inicio
   gira-izquierda;
   si frente-libre entonces
    inicio
     avanza;
     si no-junto-a-zumbador entonces
      inicio
       b(bb);
      fin;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         deja-zumbador;
        fin
       sino
        inicio
         deja-zumbador;
         r;
        fin;
      fin
     sino
      inicio
       r;
      fin;
    fin;
    fin;
   fin;
  fin;
 define-nueva-instruccion a(aa) como
  inicio
      repetir 4 veces
       inicio
       si no-junto-a-zumbador entonces inicio
           si frente-libre entonces
            inicio
             avanza;
             si no-junto-a-zumbador entonces
              inicio
               b(aa);
              fin;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         deja-zumbador;
        fin
       sino
        inicio
         deja-zumbador;
         r;
        fin;
      fin
     sino
      inicio
       r;
      fin;
            fin;
           gira-izquierda;
       fin;
       fin;
      si junto-a-zumbador entonces
       inicio
        coge-zumbador;
        coge-zumbador;
        repetir aa veces
            deja-zumbador;
       fin
      sino
       inicio
        a(sucede(aa));
       fin;
  fin;
    inicia-ejecucion
     a(1);
        apagate;
    termina-ejecucion
finalizar-programa
