iniciar-programa
    define-prototipo-instruccion ap(n);
    define-prototipo-instruccion ck(n);
    define-nueva-instruccion tm2(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            tm2(sucede(n));
        fin
        sino
        inicio
            repetir 2 veces gira-izquierda;
            avanza;
            ap(sucede(n));
        fin;
    fin;
    define-nueva-instruccion tm(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            tm(sucede(n));
        fin
        sino
        inicio
            repetir n veces deja-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            ck(n);
        fin;
    fin;
    define-nueva-instruccion ck(n) como
    inicio
        si no(si-es-cero(n)) entonces
        inicio
            si junto-a-zumbador entonces
            inicio
                coge-zumbador;
                ck(precede(n));
                deja-zumbador;
            fin
            sino
            inicio
                repetir 2 veces gira-izquierda;
                avanza;
                mientras junto-a-zumbador hacer coge-zumbador;
                repetir 2 veces gira-izquierda;
                avanza;
            sal-de-instruccion;
            fin;
        fin
        sino
        inicio
            si junto-a-zumbador entonces
            inicio
                repetir 2 veces gira-izquierda;
                avanza;
                tm(0);
            fin
            sino
            inicio
                repetir 2 veces gira-izquierda;
                avanza;
                tm2(0);
            fin;
        fin;
    fin;
    define-nueva-instruccion compara(n) como
    inicio
        si junto-a-zumbador y no(si-es-cero(n)) entonces
        inicio
            coge-zumbador;
            compara(precede(n));
            deja-zumbador;
        fin
        sino mientras junto-a-zumbador hacer coge-zumbador;
    fin;
    define-nueva-instruccion ap(n) como
    inicio
        si no(derecha-bloqueada y frente-bloqueado y izquierda-bloqueada) entonces
        inicio
            repetir 4 veces
            inicio
                si frente-libre entonces
                inicio
                    avanza;
                    si junto-a-zumbador entonces
                    inicio
                        si no(derecha-bloqueada y frente-bloqueado y izquierda-bloqueada) entonces
                        inicio
                            repetir 2 veces gira-izquierda;
                            avanza;
                            repetir n veces deja-zumbador;
                            repetir 2 veces gira-izquierda;
                            avanza;
                            ck(n);
                        fin
                        sino
                        inicio
                            si no junto-a-zumbador entonces repetir n veces deja-zumbador
                            sino compara(n);
                        fin;
                    fin
                    sino si derecha-bloqueada y frente-bloqueado y izquierda-bloqueada entonces repetir n veces deja-zumbador;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    repetir 2 veces gira-izquierda;
                fin;
                gira-izquierda;
           fin;
        fin;
    fin;
    inicia-ejecucion
        ap(1);
        apagate;
    termina-ejecucion
finalizar-programa
