iniciar-programa
    define-prototipo-instruccion tx(n);
    define-nueva-instruccion comp(n) como
    inicio
        si junto-a-zumbador y no si-es-cero(n) entonces
        inicio
            coge-zumbador;
            comp(precede(n));
            si algun-zumbador-en-la-mochila entonces deja-zumbador;
        fin
        sino
        inicio
            si si-es-cero(n) entonces
            inicio
                deja-zumbador;
            fin;
        fin;
    fin;
    define-nueva-instruccion bsk(n) como
    inicio
        repetir 3 veces gira-izquierda;
        repetir 2 veces
        inicio
            si frente-libre entonces
            inicio
                coge-zumbador;
                avanza;
                comp(n);
                si algun-zumbador-en-la-mochila entonces
                inicio
                repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                    deja-zumbador;
                    avanza;
                    tx(0);
                fin
                sino
                inicio
                    coge-zumbador;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                    deja-zumbador;
                fin;
            fin;
            gira-izquierda;
        fin;
        si frente-libre entonces
            inicio
                coge-zumbador;
                avanza;
                comp(n);
                si algun-zumbador-en-la-mochila entonces
                inicio
                repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                    deja-zumbador;
                    avanza;
                    tx(0);
                fin
                sino
                inicio
                    coge-zumbador;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                    deja-zumbador;
                    apagate;
                fin;
            fin;
            gira-izquierda;
        repetir 2 veces gira-izquierda;
    fin;
    define-nueva-instruccion tx(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            tx(sucede(n));
        fin
        sino
        inicio
            si si-es-cero(n) entonces apagate;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            bsk(n);
        fin;
    fin;
    define-nueva-instruccion tx1(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            tx1(sucede(n));
        fin
        sino
        inicio
            si si-es-cero(n) entonces apagate;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            si frente-libre entonces
            inicio
                coge-zumbador;
                avanza;
                comp(n);
                si algun-zumbador-en-la-mochila entonces
                inicio
                repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                    deja-zumbador;
                fin
                sino
                inicio
                    coge-zumbador;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    deja-zumbador;
                fin;
            fin
            sino repetir 2 veces gira-izquierda;
            tx(0);
        fin;
    fin;
    inicia-ejecucion
        tx1(0);
        apagate;
    termina-ejecucion
finalizar-programa
