iniciar-programa
define-nueva-instruccion gira(n) como repetir n veces gira-izquierda;

define-nueva-instruccion sitio(n) como inicio
si no junto-a-zumbador entonces inicio
si frente-libre entonces inicio
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
apagate;
fin;
fin;
sitio(n);
fin
sino inicio
si junto-a-zumbador entonces inicio
gira(1);
si frente-libre y no orientado-al-norte entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
gira(2);
avanza;
gira(2);
sitio(sucede(n));
fin
sino inicio
gira(2);
avanza;
gira(2);
sitio(n);
fin;
fin
sino inicio
si orientado-al-norte entonces inicio
si frente-libre entonces inicio
avanza;
si no junto-a-zumbador entonces inicio
sitio(sucede(n));
fin
sino inicio
sitio(n);
fin;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
gira(1);
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
mientras junto-a-zumbador hacer coge-zumbador;
repetir n veces deja-zumbador;
apagate;
fin;
sitio(n);
fin;
fin;
fin;
sitio(n);
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);
    sitio(0);
        apagate;
    termina-ejecucion
finalizar-programa
