iniciar-programa

    define-nueva-instruccion gira-derecha como
    inicio
        repetir 3 veces
        inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion gira-doble como
    inicio
        repetir 2 veces
        inicio
            gira-izquierda;
        fin;
    fin;

    define-nueva-instruccion multiplicar(x) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           multiplicar (sucede(x));
        fin
        sino
        inicio
            avanza;
            gira-doble;
            mientras junto-a-zumbador hacer
            inicio
                coge-zumbador;
                avanza;
                repetir x veces
                inicio
                    deja-zumbador;
                fin;
                gira-doble;
                avanza;
                gira-doble;
            fin;
        fin;
    fin;

    define-nueva-instruccion mover como
    inicio
        gira-derecha;
        avanza;
        gira-derecha;
        avanza;
        avanza;
        gira-derecha;
        avanza;
    fin;

    define-nueva-instruccion dejar como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           dejar;
           deja-zumbador;
        fin
        sino
        inicio
            mover;
        fin;
    fin;

    define-nueva-instruccion dividir(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            dividir (sucede(n));
        fin
        sino
        inicio
            avanza;
            gira-derecha;
            avanza;
            mientras junto-a-zumbador hacer
            inicio
                repetir n veces
                inicio
                    coge-zumbador
                fin;
                gira-doble;
                avanza;
                deja-zumbador;
                gira-doble;
                avanza;
            fin;
        fin;
    fin;

    define-nueva-instruccion mov como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           mov;
           deja-zumbador;
        fin
        sino
        inicio
            avanza;
        fin;
    fin;

    define-nueva-instruccion mover-2 como
    inicio
        gira-doble;
        avanza;
        gira-doble;
        mov;
    fin;

    define-nueva-instruccion extra(t) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           extra (sucede(t));
        fin
        sino
        inicio
            gira-derecha;
            avanza;
            gira-izquierda;
            avanza;
            avanza;
            gira-izquierda;
            avanza;
            gira-derecha;
            mientras junto-a-zumbador hacer
            inicio
                repetir t veces
                inicio
                    si junto-a-zumbador entonces
                    inicio
                        coge-zumbador;
                    fin
                    sino
                    inicio
                        deja-zumbador;
                        avanza;
                    fin;
                fin;
            fin;
        fin;
    fin;

    define-nueva-instruccion recolecta como
    inicio
        si frente-libre entonces
        inicio
            avanza;
            coge-zumbador;
            recolecta;
            deja-zumbador;
        fin;
    fin;

    define-nueva-instruccion resta-nueva como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            resta-nueva;
            coge-zumbador;
        fin;
    fin;

    define-nueva-instruccion rec(p) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           rec (sucede(p));
           si junto-a-zumbador entonces
           inicio
               coge-zumbador;
           fin;
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
            si (si-es-cero(p)) entonces
            inicio
                mientras junto-a-zumbador hacer
                inicio
                    coge-zumbador;
                fin;
            fin;
        fin;
    fin;

    define-nueva-instruccion resta(v) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           resta(sucede(v));
           coge-zumbador;
        fin
        sino
        inicio
            repetir v veces
            inicio
                deja-zumbador;
            fin;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            avanza;
            gira-izquierda;
            avanza;
        fin;
    fin;

    define-nueva-instruccion llegar-a-multiplicar como
    inicio
        avanza;
        gira-izquierda;
        repetir 3 veces
        inicio
            avanza;
        fin;
        gira-izquierda;
        avanza;
        gira-izquierda;
    fin;

    define-nueva-instruccion llegar-a-d como
    inicio
        gira-doble;
        avanza;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        gira-derecha;
    fin;

    define-nueva-instruccion copia-1(s) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           copia-1 (sucede(s));
           deja-zumbador;
        fin
        sino
        inicio
            repetir s veces
            inicio
                deja-zumbador;
            fin;
            avanza;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
        fin;
    fin;

    define-nueva-instruccion copia-2(i) como
    inicio
        si junto-a-zumbador entonces
        inicio
           coge-zumbador;
           copia-2 (sucede(i));
           deja-zumbador;
        fin
        sino
        inicio
            repetir i veces
            inicio
                deja-zumbador;
            fin;
            avanza;
        fin;
    fin;

    define-nueva-instruccion copia-3(j) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            copia-3(sucede(j));
        fin
        sino
        inicio
            repetir j veces
            inicio
                deja-zumbador;
            fin;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            avanza;
            repetir j veces
            inicio
                deja-zumbador;
            fin;
        fin;
    fin;

    define-nueva-instruccion copiar como
    inicio
        copia-1(0);
        avanza;
        gira-izquierda;
        avanza;
        gira-derecha;
        copia-2(0);
        copia-3(0);
        gira-doble;
        avanza;
        avanza;
        gira-derecha;
        avanza;
        gira-izquierda;
    fin;

    inicia-ejecucion
        llegar-a-multiplicar;
        multiplicar(0);
        avanza;
        dejar;
        llegar-a-d;
        copiar;
        gira-doble;
        extra(0);
        gira-doble;
        recolecta;
        rec(0);
        resta(0);
        avanza;
        gira-izquierda;
        avanza;
        gira-doble;
        dividir(0);
        mover-2;
        apagate;
    termina-ejecucion
finalizar-programa
