iniciar-programa
define-nueva-instruccion gira(K) como repetir k veces gira-izquierda;
define-nueva-instruccion loser(j) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
loser(sucede(j));
fin sino inicio
repetir precede(j) veces avanza;
gira(1);
avanza;
deja-zumbador;
gira(1);
mientras frente-libre hacer avanza;
gira(1);
avanza;
gira(1);
fin;
fin;
define-nueva-instruccion pato(k) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
pato(sucede(k));
fin sino inicio
gira(3);
avanza;
repetir k veces deja-zumbador;
gira(2);
avanza;
gira(3);
fin;
fin;
define-nueva-instruccion da(l) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
da(sucede(L));
fin sino inicio
gira(2);
avanza;
gira(3);
avanza;
gira(3);
mientras no-junto-a-zumbador hacer avanza;
gira(3);
repetir 2 veces avanza;
gira(3);
repetir l veces inicio
avanza;
pato(0);
fin;
fin;
fin;
define-nueva-instruccion oso(p) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
oso(sucede(p));
fin sino inicio
gira(2);
mientras no-junto-a-zumbador y frente-libre hacer avanza;
si junto-a-zumbador entonces inicio
gira(2);
avanza;
gira(2);
fin;
gira(2);
repetir p veces deja-zumbador;
fin;
fin;
define-nueva-instruccion popo(j) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
popo(sucede(j));
fin sino inicio
gira(2);
mientras frente-libre hacer avanza;
gira(1);
avanza;
gira(1);
mientras junto-a-zumbador hacer avanza;
repetir j veces deja-zumbador;
gira(2);
mientras frente-libre hacer avanza;
gira(3);
avanza;
gira(3);
fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-norte hacer gira(1);
    avanza;
    gira(3);
    loser(0);
    avanza;
    da(0);
    gira(2);
    mientras frente-libre y no-junto-a-zumbador hacer inicio
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    si junto-a-zumbador entonces oso(0);
    si frente-libre entonces avanza;
    fin;
    gira(2);
    mientras frente-libre hacer avanza;
    gira(3);
    avanza;
    gira(3);
    mientras (frente-bloqueado y junto-a-zumbador) o (frente-libre y (junto-a-zumbador o no-junto-a-zumbador)) hacer inicio
    mientras no junto-a-zumbador y frente-libre hacer avanza;
    si junto-a-zumbador entonces popo(0);
    fin;
        apagate;
    termina-ejecucion
finalizar-programa
