iniciar-programa

define-nueva-instruccion avanzador(m) como
inicio
si no si-es-cero(m) entonces inicio
avanza;
avanzador(precede(m));
fin;
fin;
define-nueva-instruccion cuenta(x) como
inicio
si junto-a-zumbador entonces inicio
coge-zumbador;
cuenta(sucede(x));
fin
sino inicio
avanzador(x);
fin;
fin;
define-nueva-instruccion funcion como
inicio
si junto-a-zumbador entonces inicio
cuenta(0);
funcion;
deja-zumbador;
fin;
fin;
    inicia-ejecucion
    mientras no-orientado-al-este hacer gira-izquierda;
    funcion;
    deja-zumbador;
    apagate;
    termina-ejecucion
finalizar-programa
