iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;
define-nueva-instruccion casa como
inicio
    mientras no-orientado-al-sur hacer gira(1);
    mientras frente-libre hacer avanza;
    gira(3);
    mientras frente-libre hacer avanza;
fin;
define-nueva-instruccion lleva como
si junto-a-zumbador entonces
inicio
    coge-zumbador;
    lleva;
    deja-zumbador;
fin
sino casa;
define-nueva-instruccion area2(b) como
si izquierda-bloqueada entonces
inicio
    avanza;
    area2(sucede(b));
fin
sino
inicio
    casa;
    repetir 3 veces repetir b veces deja-zumbador;
    gira(3);
    avanza;
    repetir 3 veces repetir b veces deja-zumbador;
    gira(2);
    avanza;
    gira(3);
fin;
define-nueva-instruccion compara(a) como
si junto-a-zumbador entonces
inicio
    si no si-es-cero(a) entonces
    inicio
        coge-zumbador;
        compara(precede(a));
    fin
    sino
    inicio
        gira(3);
        mientras junto-a-zumbador hacer coge-zumbador;
        avanza;
        lleva;
    fin;
fin
sino
inicio
    gira(2);
    avanza;
    gira(1);
    avanza;
    llevA;
fin;
define-nueva-instruccion numero(a) como
si junto-a-zumbador entonces
inicio
    coge-zumbador;
    numero(sucede(a));
fin
sino
inicio
    avanza;
    compara(a);
fin;

define-nueva-instruccion area1(a) como
si izquierda-bloqueada entonces
inicio
    avanza;
    area1(sucede(a));
fin
sino
inicio
    gira(3);
    repetir 3 veces avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(2);
    area2(0);
    gira(2);
    avanza;
    repetir 2 veces repetir a veces deja-zumbador;
    gira(1);
    avanza;
    repetir 2 veces repetir a veces deja-zumbador;
    gira(2);
    avanza;
    gira(3);
    numero(0);

fin;

    inicia-ejecucion
    mientras no-orientado-al-este hacer gira(1);
    repetir 4 veces avanza;
    repetir 350 veces coge-zumbador;
    gira(2);
    repetir 2 veces avanza;
    gira(3);
    repetir 2 veces avanza;
    gira(3);
    mientras frente-libre hacer avanza;
    gira(2);
    area1(0);



        apagate;
    termina-ejecucion
finalizar-programa
