iniciar-programa
define-nueva-instruccion g(n) como inicio
    repetir n veces gira-izquierda;
fin;

define-nueva-instruccion x(m) como inicio

        si junto-a-zumbador entonces inicio
            coge-zumbador;
            x(sucede(m));
        fin
        sino inicio
            g(3);
            si frente-libre entonces avanza;
            g(1);
            mientras no junto-a-zumbador y frente-libre hacer avanza;
            si junto-a-zumbador entonces inicio
                x(m);
            fin
            sino inicio
                si frente-bloqueado entonces inicio
                    g(1);
                    avanza;
                    deja-zumbador;
                    mientras no orientado-al-oeste hacer gira-izquierda;
                    mientras frente-libre hacer avanza;
                    repetir m veces deja-zumbador;
                fin;
            fin;
        fin;

fin;

define-nueva-instruccion final(u) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        final(sucede(u));
    fin
    sino inicio
       g(2);
       mientras frente-libre hacer avanza;
       g(1);
       mientras frente-libre hacer avanza;
       g(1);
       mientras derecha-bloqueada hacer avanza;
       g(3);
       avanza;
       repetir u veces deja-zumbador;
       coge-zumbador;
    fin;
fin;

define-nueva-instruccion restar2(i) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        restar2(sucede(i));
    fin
    sino inicio
        g(2);
        avanza;
        repetir i veces coge-zumbador;
        final(0);

    fin;
fin;

define-nueva-instruccion llevar(t) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        llevar(sucede(t));
    fin
    sino inicio
        mientras no orientado-al-este hacer gira-izquierda;
        mientras no junto-a-zumbador hacer avanza;
        g(2);
        avanza;
        g(3);
        repetir t veces deja-zumbador;

    fin;
fin;

define-nueva-instruccion restar(p) como inicio
    si frente-libre entonces inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            restar(sucede(p));
        fin
        sino inicio
            avanza;
            repetir p veces inicio
                si junto-a-zumbador entonces coge-zumbador;
            fin;
            si junto-a-zumbador entonces inicio
                llevar(0);
                apagate;

            fin
            sino inicio
                g(2);
                avanza;
                repetir p veces deja-zumbador;
                g(2);
                avanza;
                mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
                restar2(0);

            fin;
        fin;
    fin;
fin;

    inicia-ejecucion
    mientras frente-libre hacer avanza;
    g(1);
    mientras junto-a-zumbador hacer avanza;
    g(2);
    avanza;
    x(0);
    g(3);
    avanza;
    mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
    g(2);
    restar(1);

        apagate;
    termina-ejecucion
finalizar-programa
