iniciar-programa
 define-nueva-instruccion reg como
  inicio
   gira-izquierda;
   gira-izquierda;
   avanza;
   gira-izquierda;
   gira-izquierda;
  fin;
 define-nueva-instruccion bas como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         coge-zumbador;
         si junto-a-zumbador entonces
          inicio
           coge-zumbador;
           si junto-a-zumbador entonces
            inicio
             coge-zumbador;
             si junto-a-zumbador entonces
              inicio
               coge-zumbador;
               si junto-a-zumbador entonces
                inicio
                 coge-zumbador;
                 si junto-a-zumbador entonces
                  inicio
                   repetir 7 veces
                    deja-zumbador;
                  fin
                 sino
                  inicio
                   deja-zumbador;
                  fin;
                fin;
              fin
             sino
              inicio
               deja-zumbador;
              fin;
            fin;
          fin
         sino
          inicio
           deja-zumbador;
          fin;
        fin
       sino
        inicio
         deja-zumbador;
        fin;
      fin;
    fin;
  fin;
 define-nueva-instruccion rev(n) como
  inicio
   repetir precede(n) veces
    inicio
     si junto-a-zumbador entonces
      coge-zumbador;
    fin;
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     si junto-a-zumbador entonces
      rev(n);
    fin
   sino
    inicio
     deja-zumbador;
    fin;
  fin;
 define-nueva-instruccion dis(a) como
  inicio
   si junto-a-zumbador entonces
    inicio
     coge-zumbador;
     dis(sucede(a));
    fin
   sino
    inicio
     repetir a veces
      deja-zumbador;
     rev(2);
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       repetir a veces
        deja-zumbador;
       rev(3);
       si junto-a-zumbador entonces
        inicio
         mientras junto-a-zumbador hacer
          coge-zumbador;
         repetir a veces
          deja-zumbador;
         rev(5);
         si junto-a-zumbador entonces
          inicio
           mientras junto-a-zumbador hacer
            coge-zumbador;
           repetir a veces
            deja-zumbador;
           rev(7);
           si junto-a-zumbador entonces
            inicio
             mientras junto-a-zumbador hacer
              coge-zumbador;
             deja-zumbador;
            fin
           sino
            inicio
             reg;
            fin;
          fin
         sino
          inicio
           reg;
          fin;
        fin
       sino
        inicio
         reg;
        fin;
      fin
     sino
      inicio
       reg;
      fin;
    fin;
  fin;
 define-nueva-instruccion bus como
  inicio
   gira-izquierda;
   si frente-libre entonces
    inicio
     avanza;
     bas;
     si junto-a-zumbador entonces
      inicio
       coge-zumbador;
       si junto-a-zumbador entonces
        inicio
         deja-zumbador;
         dis(0);
        fin
       sino
        inicio
         deja-zumbador;
        fin;
      fin
     sino
      inicio
       reg;
      fin;
    fin;
  fin;
 define-nueva-instruccion ini como
  inicio
   mientras junto-a-zumbador hacer
    coge-zumbador;
   repetir 4 veces
    inicio
     si no-junto-a-zumbador entonces
      bus;
    fin;
  fin;
 define-nueva-instruccion rec como
  inicio
   coge-zumbador;
   gira-izquierda;
   gira-izquierda;
   repetir 3 veces
    inicio
     bus;
     si junto-a-zumbador entonces
      rec;
    fin;
   repetir 3 veces
    gira-izquierda;
   apagate;
  fin;
    inicia-ejecucion
     ini;
     si junto-a-zumbador entonces
      rec;
           apagate;
    termina-ejecucion
finalizar-programa
