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