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

define-nueva-instruccion tipli(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
tipli(n);
repetir n veces
deja-zumbador;
fin
sino inicio
gira-izquierda;
avanza;
gira(3);
avanza;
gira(3);
avanza;
fin;
fin;

define-nueva-instruccion multi(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
multi(sucede(n));
fin
sino inicio
avanza;
tipli(n);
fin;
fin;

define-nueva-instruccion pasa como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
pasa;
deja-zumbador;
fin
sino inicio
avanza;
fin;
fin;

define-nueva-instruccion div(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
div(sucede(n));
fin
sino inicio
gira(2);
avanza;
gira(1);
avanza;
gira(1);
avanza;
mientras junto-a-zumbador hacer inicio
mientras no orientado-al-sur hacer
gira-izquierda;
repetir n veces inicio
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-este hacer
gira-izquierda;
deja-zumbador;
fin;
fin;
si junto-a-zumbador y orientado-al-este entonces inicio
mientras no orientado-al-sur hacer
gira-izquierda;
repetir n veces inicio
si junto-a-zumbador y orientado-al-sur entonces inicio
coge-zumbador;
fin
sino inicio
mientras no orientado-al-este hacer
gira-izquierda;
deja-zumbador;
fin;
fin;
si junto-a-zumbador entonces inicio
mientras no orientado-al-sur hacer
gira-izquierda;
pasa;
fin;
apagate;
fin;
gira(1);
avanza;
gira(1);
avanza;
gira(1);
avanza;
deja-zumbador;
gira(2);
avanza;
gira(3);
avanza;
gira(3);
avanza;
fin;
fin;
fin;

    inicia-ejecucion
    avanza;
    gira-izquierda;
    repetir 3 veces
    avanza;
    gira-izquierda;
    avanza;
    gira-izquierda;
    multi(0);
    gira(2);
    avanza;
    avanza;
    gira(1);
    avanza;
    div(0);

        apagate;
    termina-ejecucion
finalizar-programa
