iniciar-programa
define-nueva-instruccion g(n) como repetir n veces gira-izquierda;
    define-nueva-instruccion mismo(n) como
    inicio
        si orientado-al-norte entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-norte entonces
            inicio
                si no-junto-a-zumbador entonces
                inicio
                    deja-zumbador;
                    apagate;
                fin;
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-sur entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-sur entonces
            inicio
                si no-junto-a-zumbador entonces
                inicio
                    deja-zumbador;
                    apagate;
                fin;
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-este entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-este entonces
            inicio
                si no-junto-a-zumbador entonces
                inicio
                    deja-zumbador;
                    apagate;
                fin;
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-oeste entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-oeste entonces
            inicio
                si no-junto-a-zumbador entonces
                inicio
                    deja-zumbador;
                    apagate;
                fin;
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
    fin;
    define-nueva-instruccion compara(n) como
    inicio
        si orientado-al-norte entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-norte entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-sur entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces
                        deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-sur entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-este entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-este entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
        si orientado-al-oeste entonces
        inicio
            repetir n veces
            inicio
               si junto-a-zumbador entonces
                    coge-zumbador
                sino
                inicio
                    repetir precede(n) veces deja-zumbador;
                    g(2);
                fin;
            fin;
            si orientado-al-oeste entonces
            inicio
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir n veces deja-zumbador;
            fin
            sino
                g(2);
        fin;
    fin;
    define-nueva-instruccion avance(n) como
    inicio
        si frente-libre entonces
        inicio
            si no-junto-a-zumbador entonces
            inicio
                avanza;
                avance(sucede(n));
            fin
            sino
            inicio
                coge-zumbador;
                si no junto-a-zumbador entonces
                inicio
                    deja-zumbador;
                    avanza;
                    avance(sucede(n));
                fin
                sino
                inicio
                    coge-zumbador;
                    si no-junto-a-zumbador entonces
                    inicio
                        repetir 2 veces deja-zumbador;
                        avanza;
                        avance(sucede(n));
                    fin
                    sino
                    inicio
                        coge-zumbador;
                        si no-junto-a-zumbador entonces
                        inicio
                            repetir 3 veces deja-zumbador;
                            g(2);
                            repetir n veces avanza;
                            g(2);
                            deja-zumbador;
                        fin
                        sino
                        inicio
                            repetir 3 veces deja-zumbador;
                            avanza;
                            avance(sucede(n));
                        fin;
                    fin;
                fin;
            fin;
        fin
        sino
        inicio
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                si junto-a-zumbador entonces
                inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                        si no-junto-a-zumbador entonces
                        inicio
                            repetir 3 veces deja-zumbador;
                            g(2);
                            repetir n veces avanza;
                            g(2);
                            deja-zumbador;
                        fin
                        sino
                        inicio
                            repetir 3 veces deja-zumbador;
                            g(2);
                            repetir n veces avanza;
                            g(2);
                        fin;
                    fin
                    sino
                    inicio
                        repetir 2 veces deja-zumbador;
                        g(2);
                        repetir n veces avanza;
                        g(2);
                    fin;
                fin
                sino
                inicio
                    deja-zumbador;
                    g(2);
                    repetir n veces avanza;
                    g(2);
                fin;
            fin
            sino
            inicio
                g(2);
                repetir n veces avanza;
                g(2);
            fin;
        fin;
    fin;
    define-nueva-instruccion revisa como
    inicio
        repetir 4 veces
        inicio
            avance(0);
            g(1);
        fin;
    fin;
    define-nueva-instruccion ult(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            repetir 2 veces coge-zumbador;
            revisa;
            repetir n veces
                deja-zumbador;
            g(2);
            avanza;
            g(2);
        fin
        sino
        inicio
            deja-zumbador;
            repetir 4 veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                    si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces
                        inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces
                            inicio
                                coge-zumbador;
                                si junto-a-zumbador entonces
                                inicio
                                    repetir 3 veces deja-zumbador;
                                    mismo(n);
                                    g(2);
                                    avanza;
                                    g(2);
                                fin
                                sino
                                inicio
                                    repetir 3 veces deja-zumbador;
                                    g(2);
                                    avanza;
                                    g(2);
                                fin;
                            fin
                            sino
                            inicio
                                repetir 2 veces deja-zumbador;
                                ult(n);
                            fin;
                        fin
                        sino
                        inicio
                            deja-zumbador;
                            g(2);
                            avanza;
                            g(2);
                        fin;
                    fin
                    sino
                    inicio
                        revisa;
                        si junto-a-zumbador entonces
                        inicio
                            mientras junto-a-zumbador hacer coge-zumbador;
                            ult(sucede(n));
                        fin
                        sino
                        inicio
                            ult(n);
                        fin;
                        g(2);
                        mientras junto-a-zumbador hacer coge-zumbador;
                        avanza;
                        g(2);
                    fin;
                fin;
                g(1);
            fin;
        fin;
    fin;
    define-nueva-instruccion busca(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            repetir 2 veces coge-zumbador;
            revisa;
            repetir n veces deja-zumbador;
            g(2);
            avanza;
            g(2);
        fin
        sino
        inicio
            deja-zumbador;
            repetir 4 veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                    si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                        si junto-a-zumbador entonces
                        inicio
                            coge-zumbador;
                            si junto-a-zumbador entonces
                            inicio
                                coge-zumbador;
                                si junto-a-zumbador entonces
                                inicio
                                    repetir 3 veces deja-zumbador;
                                    compara(n);
                                    g(2);
                                    avanza;
                                    g(2);
                                fin
                                sino
                                inicio
                                    repetir 3 veces deja-zumbador;
                                    g(2);
                                    avanza;
                                    g(2);
                                fin;
                            fin
                            sino
                            inicio
                                repetir 2 veces deja-zumbador;
                                busca(n);
                            fin;
                        fin
                        sino
                        inicio
                            deja-zumbador;
                            g(2);
                            avanza;
                            g(2);
                        fin;
                    fin
                    sino
                    inicio
                        revisa;
                        si junto-a-zumbador entonces
                        inicio
                            mientras junto-a-zumbador hacer coge-zumbador;
                            busca(sucede(n));
                        fin
                        sino
                            busca(n);
                        g(2);
                        mientras junto-a-zumbador hacer coge-zumbador;
                        avanza;
                        g(2);
                    fin;
                fin;
                g(1);
            fin;
        fin;
    fin;
    inicia-ejecucion
        busca(4);
        coge-zumbador;
        ult(4);
        apagate;
    termina-ejecucion
finalizar-programa
