iniciar-programa
define-nueva-instruccion gira(x) como inicio
repetir x veces gira-izquierda;
FIN;
define-nueva-instruccion orientate como inicio
mientras no orientado-al-oeste hacer gira-izquierda;
mientras frente-libre hacer avanza;
gira(2);

FIN;
define-nueva-instruccion  karelitas(a) como inicio
mientras no junto-a-zumbador y frente-libre hacer  avanza;
si frente-bloqueado y no junto-a-zumbador entonces inicio
orientate;
repetir a veces inicio
si no junto-a-zumbador entonces deja-zumbador;
si frente-libre entonces avanza;
fin;
sal-de-instruccion;
fin;

 si junto-a-zumbador entonces inicio
 coge-zumbador;
 karelitas(sucede(a));
 fin;
fin;
define-nueva-instruccion continua como inicio
orientate;
 karelitas(0);
fin;
define-nueva-instruccion karelitos(n) como inicio
si frente-bloqueado entonces inicio
si frente-bloqueado y  junto-a-zumbador entonces inicio
coge-zumbador;
si no junto-a-zumbador entonces inicio
deja-zumbador;
continua;
 fin
 sino inicio
 coge-zumbador;
 karelitos(sucede(n));
 fin;
fin;

si frente-bloqueado y no junto-a-zumbador entonces inicio
continua;
mientras frente-libre hacer avanza;
gira(2);
repetir n veces inicio
repetir 2 veces deja-zumbador;
avanza;
fin;
apagate;
fin;
fin;
mientras no junto-a-zumbador y frente-libre hacer inicio
avanza;
si frente-bloqueado y no junto-a-zumbador entonces karelitos(n);
fin;
si junto-a-zumbador entonces inicio
coge-zumbador;
si junto-a-zumbador entonces inicio
  coge-zumbador;
  karelitos(sucede(n));
fin
sino inicio
deja-zumbador;
si frente-libre entonces avanza;
 karelitos(n);
fin;

fin;

FIN;
    inicia-ejecucion
    orientate;
    karelitos(0);
        apagate;
    termina-ejecucion
finalizar-programa
