Un "Caracol" en Karel

Mundo:

iniciar-programa

inicia-ejecucion



mientras no-orientado-al-este hacer

gira-izquierda;



mientras frente-libre hacer

inicio

avanza;

si izquierda-bloqueada y derecha-bloqueada y frente-bloqueado entonces

apagate;

mientras frente-bloqueado hacer

gira-izquierda;

fin;



apagate;

termina-ejecucion

finalizar-programa