iniciar-programa
define-nueva-instruccion gira(h) como repetir h veces gira-izquierda;
define-nueva-instruccion ordena(k) como inicio
mientras frente-libre y no-junto-a-zumbador y orientado-al-oeste hacer avanza;
si frente-bloqueado y no-junto-a-zumbador y orientado-al-oeste entonces inicio
gira(3);
avanza;
gira(3);
fin;
si frente-bloqueado y orientado-al-oeste y junto-a-zumbador entonces inicio
coge-zumbador;
gira(3);
avanza;
gira(3);
ordena(sucede(k));
fin;
si junto-a-zumbador y orientado-al-oeste entonces inicio
coge-zumbador;
si frente-libre entonces avanza;
ordena(sucede(k));
fin sino inicio
si orientado-al-este entonces inicio
repetir k veces inicio
deja-zumbador;
si frente-libre entonces avanza;
fin;
mientras junto-a-zumbador y frente-libre hacer avanza;
si no-junto-a-zumbador entonces inicio
gira(2);
avanza;
gira(2);
fin;
gira(3);
avanza;
fin;
fin;
fin;
define-nueva-instruccion sumando(l) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
sumando(sucede(l));
fin sino inicio
avanza;
repetir l veces deja-zumbador;
fin;
fin;
define-nueva-instruccion chokomil(z) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
chokomil(sucede(z));
fin sino inicio
repetir z veces deja-zumbador;
mientras frente-libre hacer avanza;
gira(1);
mientras frente-libre hacer avanza;
repetir z veces deja-zumbador;
fin;
fin;
define-nueva-instruccion gran(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
gran(sucede(n));
fin sino inicio
gira(2);
avanza;
mientras junto-a-zumbador hacer coge-zumbador;
si no junto-a-zumbador entonces repetir n veces deja-zumbador;
fin;
fin;
    inicia-ejecucion
    mientras junto-a-zumbador y frente-libre hacer avanza;
    si no-junto-a-zumbador entonces inicio
    gira(2);
    avanza;
    gira(2);
    fin;
    gira(2);
    ordena(0);
    mientras orientado-al-sur hacer inicio
    mientras orientado-al-sur hacer inicio
    gira(3);
    mientras frente-libre y no-junto-a-zumbador hacer avanza;
    si frente-libre o frente-bloqueado y junto-a-zumbador entonces ordena(0);
    fin;
    gira(3);
    avanza;
    gira(3);
    mientras junto-a-zumbador y frente-libre hacer avanza;
    si no-junto-a-zumbador entonces inicio
    gira(2);
    avanza;
    gira(2);
    fin;
    gira(2);
    sumando(0);
    chokomil(0);
    gira(2);
    avanza;
    mientras no-junto-a-zumbador hacer avanza;
    gira(3);
    mientras junto-a-zumbador y frente-libre hacer avanza;
    gira(2);
    avanza;
    si frente-libre entonces gira(1);
    fin;
    gira(1);
    mientras frente-libre hacer avanza;
    gran(0);
        apagate;
    termina-ejecucion
finalizar-programa
