iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion cuenta2(n) como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               cuenta2(sucede(n));
           fin sino
               inicio
                   este;
                   avanza;
                   mientras junto-a-zumbador hacer
                       inicio
                          coge-zumbador;
                          oeste;
                          avanza;
                          repetir n veces deja-zumbador;
                          este;
                          avanza;
                       fin;
               fin;
    fin;
define-nueva-instruccion calcula(n) como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               calcula(sucede(n));
               deja-zumbador;
           fin sino
               inicio
                   repetir n veces deja-zumbador;
                   oeste;
                   avanza;
                   sur;
                   cuenta2(0);
               fin;
    fin;
define-nueva-instruccion daResultado como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                daResultado;
                deja-zumbador;
            fin sino
                inicio
                    sur;
                    mientras frente-libre hacer avanzA;
                fin;
    fin;
define-nueva-instruccion compara(n) como
    inicio
    si no si-es-cero (n) entonces
        inicio
               si junto-a-zumbador entonces
                   inicio
                      coge-zumbador;
                      compara(precede(n));
                      deja-zumbador;
                      sur;
                      avanza;
                      oeste;
                      avanza;
                      deja-zumbador;
                      norte;
                      avanza;
                      este;
                      avanza;
                   fin sino
                       inicio
                           norte;
                           avanza;
                           este;
                           avanza;
                           repetir n veces deja-zumbador;
                       fin;
         fin sino
             inicio
                 si junto-a-zumbador entonces apagate;
                 norte;
                 avanza;
                 daResultado;
                 apagate;
             fin;
    fin;
define-nueva-instruccion cuenta(n) como
    inicio
       si junto-a-zumbador entonces
           inicio
               coge-zumbador;
               cuenta(Sucede(N));
           fin sino
               inicio
                   repetir n veces deja-zumbador;
                   si orientado-al-este entonces mientras junto-a-zumbador hacer coge-zumbador;
                   sur;
                   avanza;
                   mientras frente-libre hacer
                       inicio
                           si orientado-al-este entonces cuenta(0);
                           si orientado-al-sur y no-junto-a-zumbador entonces
                               inicio
                                   oeste;
                                   avanza;
                                   compara(precede(n));
                               fin sino compara(precede(n));
                           calcula(0);

                       fin;

               fin;
    fin;
    inicia-ejecucion
        avanza;
        avanza;
        cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
