iniciar-programa
define-nueva-instruccion gira(p) como repetir p veces gira-izquierda;
define-nueva-instruccion choke(n) como inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
choke(sucede(n));
fin sino inicio
si orientado-al-este o orientado-al-oeste entonces inicio
repetir n veces avanza;
fin;
si izquierda-bloqueada y orientado-al-norte entonces inicio
gira(3);
repetir precede(n) veces avanza;
fin;
si izquierda-libre y orientado-al-norte entonces inicio
gira(1);
repetir precede(n) veces avanza;
fin;
repetir n veces deja-zumbador;
si orientado-al-oeste entonces inicio
avanza;
si junto-a-zumbador entonces inicio
gira(1);
fin;
fin;
si frente-libre entonces avanza;
mientras frente-libre hacer avanza;
si ((orientado-al-oeste o orientado-al-este) y (frente-bloqueado y no-junto-a-zumbador)) entonces inicio
gira(2);
mientras no-junto-a-zumbador hacer avanza;
fin;
si orientado-al-oeste y frente-bloqueado y junto-a-zumbador entonces gira(2);
si orientado-al-este y frente-bloqueado y junto-a-zumbador entonces inicio
gira(1);
fin;
fin;
fin;
define-nueva-instruccion kilo(k) como inicio
si no-junto-a-zumbador entonces inicio
avanza;
kilo(sucede(k));
fin sino inicio
si orientado-al-este entonces inicio
gira(2);
mientras frente-libre hacer avanza;
fin;
fin;
deja-zumbador;
fin;
      inicia-ejecucion
  mientras orientado-al-norte o orientado-al-este o orientado-al-oeste hacer choke(0);
 gira(3);
 mientras frente-libre hacer avanza;
 gira(2);
 kilo(0);
        apagate;
    termina-ejecucion
finalizar-programa
