iniciar-programa
define-nueva-instruccion gira(n) como
inicio
repetir n veces gira-izquierda;
fin;
define-nueva-instruccion cuenta(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
si no-junto-a-zumbador entonces
inicio

si frente-libre entonces
avanza;
si derecha-libre entonces gira(3);
cuenta(sucede(n));
fin
sino
inicio
coge-zumbador;
si frente-libre entonces
avanza;
si derecha-libre entonces gira(3);
cuenta(n);
deja-zumbador;
sal-de-instruccion;
fin;
fin
sino
inicio
gira(2);
avanza;
gira(1);
avanza;
avanza;
gira(2);
repetir n veces deja-zumbador;
avanza;
fin;
fin;

define-nueva-instruccion postes(n) como
inicio
si junto-a-zumbador entonces
inicio
coge-zumbador;
postes(sucede(n));
fin
sino
inicio
repetir n veces deja-zumbador;
avanza;
mientras no-junto-a-zumbador hacer
inicio
repetir 2 veces deja-zumbador;
repetir n veces
inicio
si no-junto-a-zumbador entonces
deja-zumbador;
avanza;
si derecha-libre entonces gira(3);
fin;
 fin;
 cuenta(0);
fin;
fin;

    inicia-ejecucion
    mientras no-orientado-al-este hacer gira(1);
    avanza;
    gira(1);
    postes(0);
        apagate;
    termina-ejecucion
finalizar-programa
