iniciar-programa
Define-nueva-instruccion popo(n) como inicio
si junto-a-zumbador entonces inicio
si junto-a-zumbador entonces inicio coge-zumbador;
si no-junto-a-zumbador entonces popo(sucede(n));
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
si no-junto-a-zumbador entonces popo(sucede(sucede(n)));
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
si no-junto-a-zumbador entonces popo(sucede(sucede(sucede(n))));
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
popo(sucede(sucede(sucede(sucede(n)))));
fin;
fin sino inicio
si no-junto-a-zumbador entonces inicio
si frente-libre entonces avanza;
si junto-a-zumbador entonces popo(0);
si frente-bloqueado o no-junto-a-zumbador entonces repetir 2 veces gira-izquierda;
fin;
fin;
si si-es-cero(precede(n)) entonces inicio
mientras no-orientado-al-norte hacer gira-izquierda;
avanza;
fin;
si si-es-cero(precede(precede(n))) entonces inicio
mientras no-orientado-al-este hacer gira-izquierda;
avanza;
fin;
si si-es-cero(precede(precede(precede(n)))) entonces inicio
mientras no-orientado-al-sur hacer gira-izquierda;
avanza;
fin;
si si-es-cero(precede(precede(precede(precede(n))))) entonces inicio
mientras no-orientado-al-oeste hacer gira-izquierda;
avanza;
fin;
fin;
  inicia-ejecucion
  mientras junto-a-zumbador y frente-libre hacer avanza;
  repetir 2 veces gira-izquierda;
  si no-junto-a-zumbador entonces avanza;
  si junto-a-zumbador entonces popo(0);
        apagate;
    termina-ejecucion
finalizar-programa
