iniciar-programa define-nueva-instruccion separa(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;separa(sucede(n));
    fin
    sino inicio
        repetir n veces inicio
            deja-zumbador;si frente-libre entonces avanza;
        fin;
    fin;
fin;
define-nueva-instruccion factor(n) como inicio
    si frente-libre entonces inicio
       avanza;factor(sucede(n));
    fin
    sino inicio
        repetir 2 veces gira-izquierda;
        mientras junto-a-zumbador y frente-libre hacer avanza;
        repetir n veces deja-zumbador;
        si junto-a-zumbador y frente-libre entonces avanza;
    fin;
fin;
define-nueva-instruccion multi(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        multi(n);
        repetir n veces deja-zumbador;
    fin;
fin;
define-nueva-instruccion cuenta(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        cuenta(sucede(n));
    fin
    sino inicio
        avanza;
        multi(n);
    fin;
fin;
define-nueva-instruccion copia(n) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        copia(sucede(n));
    fin
    sino inicio
        mientras frente-libre hacer avanza;
        repetir n veces deja-zumbador;
    fin;
fin;
    inicia-ejecucion
        avanza;repetir 3 veces gira-izquierda;separa(0);
        repetir 2 veces gira-izquierda;mientras frente-libre hacer avanza;
        repetir 3 veces gira-izquierda;avanza;
        repetir 3 veces gira-izquierda;separa(0);
        repetir 2 veces gira-izquierda;
        mientras frente-libre hacer avanza;
        repetir 2 veces gira-izquierda;
        mientras junto-a-zumbador hacer inicio
            si junto-a-zumbador entonces inicio
                repetir 3 veces gira-izquierda;
                avanza;
                si junto-a-zumbador entonces inicio
                    mientras junto-a-zumbador hacer coge-zumbador;
                    repetir 2 veces gira-izquierda;
                    avanza;
                    mientras junto-a-zumbador hacer coge-zumbador;
                    repetir 3 veces gira-izquierda;
                    si frente-libre entonces avanza;
                fin
                sino inicio
                    gira-izquierda;
                fin;
            fin;
        fin;
        gira-izquierda;avanza;gira-izquierda;
        mientras frente-libre hacer avanza;
        repetir 2 veces gira-izquierda;
        mientras frente-libre y no-junto-a-zumbador hacer inicio
            mientras no-junto-a-zumbador y frente-libre hacer avanza;
            si frente-libre o junto-a-zumbador entonces inicio
                repetir 2 veces gira-izquierda;
                mientras junto-a-zumbador hacer coge-zumbador;factor(1);
            fin
            sino inicio
                repetir 2 veces gira-izquierda;mientras frente-libre hacer avanza;
            fin;
            si frente-bloqueado entonces inicio
                repetir 2 veces gira-izquierda;mientras frente-libre y no-junto-a-zumbador hacer avanza;
            fin;
        fin;
        mientras junto-a-zumbador hacer avanza;repetir 2 veces gira-izquierda;avanza;
        mientras junto-a-zumbador y frente-libre hacer inicio
            avanza;
            repetir 2 veces gira-izquierda;
            si junto-a-zumbador entonces inicio
                avanza;repetir 2 veces gira-izquierda;cuenta(0);
            fin;
        fin;gira-izquierda;copia(0);
        apagate;
    termina-ejecucion
finalizar-programa
