iniciar-programa

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

define-nueva-instruccion equis(e) como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    equis(sucede(e));
    fin sino inicio
    repetir e veces avanza;
    gira(2);
    avanza;
    deja-zumbador;
    gira(2);
        mientras frente-libre hacer inicio
            repetir e veces inicio
            si frente-libre entonces avanza;
            fin;
        deja-zumbador;
        fin;
    fin;
fin;

define-nueva-instruccion mcm como inicio
    si frente-libre entonces inicio
    avanza;
    mcm;
    deja-zumbador;
    fin sino inicio
    gira(1);
    repetir 2 veces avanza;
    deja-zumbador;
    fin;
fin;

define-nueva-instruccion griega(i) como inicio
    si junto-a-zumbador entonces inicio
    coge-zumbador;
    griega(sucede(i));
    fin sino inicio
    avanza;
    gira(3);
    repetir i veces avanza;
    gira(2);
    avanza;
    gira(2);
        si no-junto-a-zumbador entonces inicio
        deja-zumbador;
        fin sino inicio
        gira(2);
        mcm;
        apagate;
        fin;
        mientras frente-libre hacer inicio
            repetir i veces inicio
            si frente-libre entonces avanza;
            fin;
            si no-junto-a-zumbador entonces inicio
            deja-zumbador;
            fin sino inicio
            gira(2);
            mcm;
            apagate;
            fin;
        fin;
    fin;
fin;

    inicia-ejecucion

    mientras no-orientado-al-sur hacer gira-izquierda;
    mientras frente-libre hacer avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(3);
    equis(0);
    gira(2);
    mientras frente-libre hacer avanza;
    gira(1);
    avanza;
    gira(2);
    griega(0);

        apagate;
    termina-ejecucion
finalizar-programa
