iniciar-programa
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;

define-nueva-instruccion ir1 como
    inicio
       oeste;
       mientras frente-libre hacer avanza;
       este;
       mientras no-junto-a-zumbador hacer avanza;
    fin;
define-nueva-instruccion compara(x) como
    inicio
        si junto-a-zumbador entonces
          inicio
              si no si-es-cero (x) entonces
                  inicio
                     coge-zumbador;
                     compara(precede(x));
                     deja-zumbador;
                     oeste;
                     avanza;
                     deja-zumbador;
                     este;
                     avanza;
                  fin;
           fin
             sino
              inicio
                 repetir x veces deja-zumbador;
              fin;

    fin;
define-nueva-instruccion resultado como
    inicio
        si junto-a-zumbador entonces
            inicio
               coge-zumbador;
               resultado;
               deja-zumbador;
               oeste;
               mientras frente-libre hacer avanza;
               norte;
               avanza;
               deja-zumbador;
               sur;
               avanza;
               este;

               mientras no-junto-a-zumbador hacer avanza;
               este;
            fin;
    fin;
define-nueva-instruccion suma como
    inicio
        si junto-a-zumbador entonces
            inicio
               coge-zumbador;
               suma;
               deja-zumbador;

            fin
            sino
                inicio
                    este;
                    avanza;
                fin;
    fin;
define-nueva-instruccion cuenta(x) como
    inicio
        si junto-a-zumbador entonces
          inicio
             coge-zumbador;
             cuenta(sucede(x));
          fin
        sino inicio
               avanza;
               si junto-a-zumbador entonces
               compara(x);
            fin;
    fin;
define-nueva-instruccion ordenar(x) como
    inicio
       repetir x veces
           inicio
               ir1;
               repetir x veces
                   inicio
                       este;
                       cuenta(0);


                   fin;
           fin;
    fin;
define-nueva-instruccion contar(x) como
    inicio
        si junto-a-zumbador entonces
          inicio
             avanza;
             contar(sucede(x));
          fin
        sino
        inicio
           ordenar(precede(x));
           ir1;
           suma;
           resultado;
           ir1;
        fin;

    fin;
define-nueva-instruccion cuantos(U) como
    inicio
        si junto-a-zumbador entonces
            inicio
               avanza;
               cuantos(sucede(u));

            fin
            sino
                inicio
                    ir1;
                    este;
                    repetir precede(u) veces contar(0);
                    apagate;
                fin;
    fin;
    inicia-ejecucion
        este;
        cuantos(0);
        apagate;
    termina-ejecucion
finalizar-programa
