iniciar-programa
define-nueva-instruccion media-vuelta como
inicio
    gira-izquierda;
    gira-izquierda;
fin;
define-nueva-instruccion gira-derecha como
inicio
    repetir 3 veces
    inicio
        gira-izquierda;
    fin;
fin;
define-nueva-instruccion cuenta(x) como
inicio
    si junto-a-zumbador entonces
    inicio
        coge-zumbador;
        cuenta(sucede(x));
    fin
    sino
    inicio
        mientras no-orientado-al-norte hacer
        inicio
            gira-izquierda;
        fin;
        repetir x veces
        inicio
            avanza;
        fin;
        deja-zumbador;
        media-vuelta;
        repetir 2 veces
        inicio
            repetir x veces
            inicio
                avanza;
            fin;
        fin;
        deja-zumbador;
        media-vuelta;
        repetir x veces
        inicio
            avanza;
        fin;
        gira-izquierda;
        repetir x veces
        inicio
            avanza;
        fin;
        deja-zumbador;
        media-vuelta;
        repetir 2 veces
        inicio
            repetir x veces
            inicio
                avanza;
            fin;
        fin;
        deja-zumbador;
        media-vuelta;
        repetir x veces
        inicio
            avanza;
        fin;
        mientras no-orientado-al-norte hacer
        inicio
            gira-izquierda;
        fin;
    fin;
fin;
define-nueva-instruccion acomodo1 como
inicio
    mientras no-junto-a-zumbador hacer
    inicio
        avanza;
    fin;
    media-vuelta;
    avanza;
    gira-derecha;
    avanza;
    mientras no-junto-a-zumbador hacer
    inicio
        deja-zumbador;
        mientras no-orientado-al-sur hacer
        inicio
            gira-izquierda;
        fin;
        avanza;
        gira-derecha;
        avanza;
    fin;
fin;
define-nueva-instruccion acomodo2 como
inicio
    mientras no-orientado-al-sur hacer
    inicio
        gira-izquierda;
    fin;
    avanza;
    gira-izquierda;
    avanza;
    mientras no-junto-a-zumbador hacer
    inicio
        deja-zumbador;
        mientras no-orientado-al-sur hacer
        inicio
            gira-izquierda;
        fin;
        avanza;
        gira-izquierda;
        avanza;
    fin;
fin;
define-nueva-instruccion acomodo3 como
inicio
    mientras no-orientado-al-norte hacer
    inicio
        gira-izquierda;
    fin;
    avanza;
    gira-derecha;
    avanza;
    mientras no-junto-a-zumbador hacer
    inicio
        deja-zumbador;
        mientras no-orientado-al-norte hacer
        inicio
            gira-izquierda;
        fin;
        avanza;
        gira-derecha;
        avanza;
    fin;
fin;
define-nueva-instruccion acomodo4 como
inicio
    media-vuelta;
    avanza;
    gira-derecha;
    avanza;
    mientras no-junto-a-zumbador hacer
    inicio
        deja-zumbador;
        mientras no-orientado-al-oeste hacer
        inicio
            gira-izquierda;
        fin;
        avanza;
        gira-derecha;
        avanza;
    fin;
fin;
    inicia-ejecucion
    si no-junto-a-zumbador entonces
    inicio
    si algun-zumbador-en-la-mochila entonces
    inicio
        deja-zumbador;
    fin;
        apagate;
    fin;
    cuenta(0);
    acomodo1;
    acomodo2;
    acomodo3;
    acomodo4;
        apagate;
    termina-ejecucion
finalizar-programa
