iniciar-programa
define-nueva-instruccion a como si frente-libre entonces avanza;
define-nueva-instruccion gi como gira-izquierda;
define-nueva-instruccion mv como repetir 2 veces gi;
define-nueva-instruccion gd como repetir 3 veces gi;
define-nueva-instruccion sa como mientras frente-libre hacer a;
define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gi;
define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gi;
define-nueva-instruccion este como mientras no-orientado-al-este hacer gi;
define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gi;
define-nueva-instruccion acomoda como
inicio
    sur;    sa;    oeste;    sa;    norte;    a; gd; a; a;
    mientras junto-a-zumbador hacer
    inicio
        mientras junto-a-zumbador  hacer
        inicio
            coge-zumbador;
        fin;
        sur;
            a;
            mientras algun-zumbador-en-la-mochila hacer deja-zumbador;
            norte;
            a;
            este;
            a;
    fin;
fin;
define-nueva-instruccion quitar(x) como
inicio
    si frente-libre entonces
    inicio
        si junto-a-zumbador entonces
        inicio
            coge-zumbador;
            a;
            quitar(x);
        fin
        sino
        inicio
            a;
            quitar(sucede(x));
        fin;
    fin
    sino
    inicio
        gd;
        a;
        gd;
        a;
        repetir x veces a;
        mientras algun-zumbador-en-la-mochila hacer
        inicio
            deja-zumbador;
            a;
        fin;
        gd;
        a;
        gd;
        a;
    fin;
fin;
define-nueva-instruccion contar(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        contar(sucede(x));
    fin
    sino
    inicio
        norte;
        a;
        repetir x veces deja-zumbador;
        mv;
        a;
        este;
        a;
        a;
        repetir x veces a;
        mv;
        a;
        repetir 100 veces
        quitar(0);
    fin;
fin;
    inicia-ejecucion
        contar(0);
        acomoda;
        apagate;
    termina-ejecucion
finalizar-programa
