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 contar(n) como
    inicio
        si no-junto-a-zumbador entonces
            inicio
               si izquierda-bloqueada entonces
                   inicio
                       avanza;
                       contar(sucede(n));
                   fin sino
                       inicio
                           gira-izquierda;
                           avanza;
                           contar(sucede(n));
                       fin;
            fin sino
                inicio
                    coge-zumbador;
                    avanza;
                    gira-izquierda;
                    avanza;
                    repetir n veces deja-zumbador;
                    avanza;
                    repetir n veces deja-zumbador;
                fin;
    fin;
define-nueva-instruccion divide(x) como
    inicio
        mientras junto-a-zumbador hacer
            inicio
                repetir x veces coge-zumbador;
                norte;
                avanza;
                deja-zumbador;
                sur;
                avanza;
            fin;
    fin;
define-nueva-instruccion contar2(p) como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                contar2(Sucede(p));
            fin sino
                inicio
                    sur;
                    avanza;
                    repetir p veces deja-zumbador;
                    este;
                    avanza;
                    repetir p veces coge-zumbador;
                    apagate;
                fin;
    fin;
define-nueva-instruccion calcula(x) como
    inicio
        si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                calcula(sucede(x));
            fin sino
                inicio
                    avanza;
                    divide(x);
                    norte;
                    avanza;
                    contar2(0);
                fin;
    fin;
    inicia-ejecucion
        este;
        avanza;
        norte;
        avanza;
        este;
        deja-zumbador;
        avanza;
        contar(1);
        oeste;
        avanza;
        avanza;
        este;
        calcula(0);
        apagate;
    termina-ejecucion
finalizar-programa
