iniciar-programa
define-nueva-instruccion resta(e) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        resta(sucede(e));
    fin
    sino inicio
    si orientado-al-norte entonces inicio
        avanza;
        repetir e veces coge-zumbador;
        repetir 2 veces gira-izquierda;
        resta(0);
    fin
    sino inicio
        mientras frente-libre hacer avanza;
        repetir e veces deja-zumbador;
    fin;
    fin;
fin;
define-nueva-instruccion multiplica(e) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        multiplica(e);
        repetir e veces deja-zumbador;
    fin;
fin;
define-nueva-instruccion deja(e) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        deja(sucede(e));
    fin
    sino inicio
        repetir e veces deja-zumbador;
        repetir 2 veces avanza;
        repetir e veces deja-zumbador;
        repetir 2 veces gira-izquierda;
        repetir 2 veces avanza;
        repetir 2 veces gira-izquierda;
    fin;
fin;
define-nueva-instruccion divide(e) como inicio
    si junto-a-zumbador y orientado-al-norte entonces inicio
        repetir e veces inicio
            si junto-a-zumbador entonces inicio
                coge-zumbador;
            fin
            sino inicio
                si orientado-al-norte entonces divide(e);
            fin;
        fin;
        si orientado-al-norte entonces inicio
            gira-izquierda;
            avanza;
            deja-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            gira-izquierda;
            divide(e);
            deja-zumbador;
        fin;
    fin
    sino inicio
        avanza;
        gira-izquierda;
    fin;
fin;

define-nueva-instruccion cuenta(e) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        cuenta(sucede(e));
    fin
    sino inicio
        si izquierda-libre entonces inicio
            repetir 2 veces gira-izquierda;
            mientras frente-libre hacer avanza;
            repetir 2 veces gira-izquierda;
            repetir e veces deja-zumbador;
        fin
        sino inicio
            repetir 2 veces gira-izquierda;
            mientras frente-libre hacer avanza;
            gira-izquierda;
            repetir 11 veces avanza;
            gira-izquierda;
            repetir 11 veces inicio
                deja(0);
                divide(e);
                mientras no-orientado-al-norte hacer gira-izquierda;
                multiplica(e);
                resta(0);
                repetir 3 veces gira-izquierda;
                si frente-libre entonces avanza;
                mientras no-orientado-al-norte hacer gira-izquierda;
            fin;
        fin;
    fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-este hacer gira-izquierda;
    repetir 11 veces avanza;
    gira-izquierda;
    repetir 11 veces inicio
        avanza;
        cuenta(0);
        repetir 2 veces avanza;
        cuenta(0);
        gira-izquierda;
        avanza;
        repetir 3 veces gira-izquierda;
    fin;
    repetir 3 veces avanza;
    cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
