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

define-nueva-instruccion copia como inicio
si frente-bloqueado y junto-a-zumbador entonces inicio
coge-zumbador;
si derecha-libre entonces inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin;
gira(1);
copia;
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
avanza;
avanza;
gira(1);
deja-zumbador;
gira(3);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(3);
si frente-libre entonces
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
mientras derecha-bloqueada hacer
avanza;
gira(3);
avanza;
mientras derecha-bloqueada hacer
avanza;
gira(3);
avanza;
gira(3);
mientras frente-libre hacer
avanza;
gira(2);
deja-zumbador;
gira(3);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(3);
si frente-libre entonces
avanza;
sal-de-instruccion;
fin;
fin
sino inicio
si frente-bloqueado y no junto-a-zumbador entonces inicio
si derecha-libre entonces inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
si frente-libre entonces inicio
avanza;
fin;
gira(1);
copia;
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
avanza;
avanza;
gira(1);
avanza;
si frente-libre entonces
avanza;
fin
sino inicio
gira(2);
mientras frente-libre hacer
avanza;
gira(1);
mientras derecha-bloqueada hacer
avanza;
gira(3);
avanza;
mientras derecha-bloqueada hacer
avanza;
gira(3);
avanza;
gira(3);
mientras frente-libre hacer
avanza;
gira(2);
avanza;
si frente-libre entonces
avanza;
sal-de-instruccion;
fin;
fin
sino inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
si frente-libre entonces
avanza;
copia;
deja-zumbador;
gira(3);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(1);
avanza;
deja-zumbador;
gira(3);
si frente-libre entonces
avanza;
fin
sino inicio
si no junto-a-zumbador  y frente-libre entonces inicio
avanza;
copia;
avanza;
si frente-libre entonces
avanza;
fin;
fin;
fin;
fin;
fin;
    inicia-ejecucion
    mientras no orientado-al-oeste hacer
    gira-izquierda;
    gira(1);
    mientras frente-libre hacer
    avanza;
    gira(3);
    copia;
        apagate;
    termina-ejecucion
finalizar-programa
