iniciar-programa
    define-nueva-instruccion mult(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            repetir n veces deja-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            mult(n);
        fin;
    fin;
    define-nueva-instruccion atp(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            atp(sucede(n));
        fin
        sino
        inicio
            gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            mult(n);
        fin;
    fin;
    define-nueva-instruccion sc(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            repetir n veces
            inicio
                si junto-a-zumbador entonces
                inicio
                coge-zumbador;
                fin
                sino mientras no orientado-al-sur hacer gira-izquierda;
            fin;
        fin
        sino
        inicio
            apagate;
        fin;
        si orientado-al-oeste entonces
        inicio
            repetir 2 veces gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            gira-izquierda;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            coge-zumbador;
            avanza;
            deja-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            sc(n);
        fin
        sino
        inicio
            avanza;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
        fin;
    fin;
    define-nueva-instruccion div(n) como
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            div(sucede(n));
        fin
        sino
        inicio
            repetir 3 veces gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            gira-izquierda;
            avanza;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            repetir 2 veces gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
            avanza;
            sc(n);
        fin;
    fin;
    inicia-ejecucion
        avanza;
        gira-izquierda;
        avanza;
        avanza;
        avanza;
        gira-izquierda;
        avanza;
        atp(0);
        repetir 2 veces gira-izquierda;
        avanza;
        avanza;
        div(0);
        apagate;
    termina-ejecucion
finalizar-programa
