iniciar-programa
    define-nueva-instruccion g(x) como inicio
        repetir x veces gira-izquierda;
    fin;
    define-nueva-instruccion checa2(x) como inicio
        repetir 4 veces inicio
            si frente-libre entonces inicio
                avanza;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces inicio
                        mientras junto-a-zumbador hacer coge-zumbador;
                        checa2(sucede(x));
                        deja-zumbador;
                    fin
                    sino inicio
                        checa2(x);
                        si si-es-cero (x) y no-junto-a-zumbador entonces inicio
                            mientras no-orientado-al-este hacer g(1);
                            avanza;
                            repetir 5 veces deja-zumbador;
                            apagate;
                        fin;
                    fin;
                fin
                sino inicio
                    g(2); avanza; g(1);
                fin;
            fin
            sino inicio
                g(3);
            fin;
        fin;
    fin;
    define-nueva-instruccion checa(x) como inicio
        si si-es-cero (x) entonces inicio
            checa2(x);
        fin
        sino inicio
        repetir 4 veces inicio
            si frente-libre entonces inicio
                avanza;
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                    si junto-a-zumbador entonces inicio
                        mientras junto-a-zumbador hacer coge-zumbador;
                        checa(precede(x));
                    fin
                    sino inicio
                        checa(x);

                    fin;
                fin
                sino inicio
                    g(2); avanza; g(1);
                fin;
            fin
            sino inicio
                g(3);
            fin;
        fin;
        fin;
    fin;
    define-nueva-instruccion cuenta(x) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador; cuenta(sucede(x));
        fin;
        checa(x);
    fin;
    inicia-ejecucion
    cuenta(0);
    si no-junto-a-zumbador entonces inicio
        mientras no-orientado-al-este hacer g(1);
        avanza;
        repetir 5 veces deja-zumbador;
        apagate;
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
 