iniciar-programa
    define-nueva-instruccion cuenta como
    inicio
        si frente-libre entonces
        inicio
            avanza;
            cuenta;
            deja-zumbador;
        fin;
    fin;
    define-nueva-instruccion abajo(n) como
    inicio
        si frente-libre entonces
        inicio
            repetir n veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                fin
                sino
                inicio
                    mientras no orientado-al-oeste hacer gira-izquierda;
                    cuenta;
                    deja-zumbador;
                    apagate;
                fin;
            fin;
        fin;
        si frente-libre entonces
        inicio
        gira-izquierda;
        si frente-libre entonces avanza;
        repetir 3 veces gira-izquierda;
        abajo(sucede(n));
        fin
        sino
        inicio
            mientras no orientado-al-oeste hacer gira-izquierda;
                    cuenta;
                    deja-zumbador;
                    apagate;
        fin;
    fin;
    define-nueva-instruccion recorre(n) como
    inicio
        si frente-bloqueado entonces
        inicio
        repetir 3 veces gira-izquierda;
                si frente-libre entonces avanza;
                repetir 3 veces gira-izquierda;
                abajo(0);
        fin;
        repetir precede(n) veces
        inicio
            si frente-libre entonces
            inicio
                avanza;
            fin
            sino
            inicio
                repetir 3 veces gira-izquierda;
                si frente-libre entonces avanza;
                repetir 3 veces gira-izquierda;
                abajo(0);
            fin;
        fin;
        repetir 3 veces gira-izquierda;
        si frente-libre entonces
        inicio
            avanza;
            gira-izquierda;
            si  no si-es-cero(precede(n)) y frente-libre entonces
            inicio
                recorre(precede(n));
            fin
            sino
            inicio
                si si-es-cero( precede(precede(n))) entonces
                inicio
                    recorre(precede(n));
                fin
                sino
                inicio
                    repetir 2 veces gira-izquierda;
                    abajo(0);
                fin;
            fin;
        fin
        sino
        inicio
            repetir 3 veces gira-izquierda;
            abajo(0);
        fin;
    fin;
    define-nueva-instruccion l(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            l(sucede(n));
        fin
        sino recorre(n);
    fin;
    inicia-ejecucion
        mientras no-orientado-al-norte hacer gira-izquierda;
        si junto-a-zumbador entonces l(0);
        apagate;
    termina-ejecucion
finalizar-programa
