iniciar-programa
define-nueva-instruccion come2(d) como inicio
 si junto-a-zumbador entonces inicio
     coge-zumbador;
     come2(sucede(d));
     deja-zumbador;
 fin sino inicio
     mientras no orientado-al-oeste hacer
     gira-izquierda;
     mientras frente-libre hacer
     avanza;
     mientras no orientado-al-sur hacer
     gira-izquierda;
     mientras frente-libre hacer
     avanza;
 fin;
fin;
define-nueva-instruccion busca(c) como inicio
   si no junto-a-zumbador entonces inicio
       si frente-libre entonces inicio
           avanza;
       fin sino inicio
           gira-izquierda;
       fin;
       busca(c);
   fin sino inicio
    come2(0);
   fin;
fin;

define-nueva-instruccion av(b) como inicio
si no si-es-cero (b) entonces inicio
    si frente-libre entonces inicio
            avanza;
    fin sino inicio
        gira-izquierda;
        avanza;
    fin;
    si junto-a-zumbador entonces inicio
        av(precede(b));
    fin sino inicio
        av(b);
    fin;
fin;
fin;

define-nueva-instruccion come(a) como inicio
si junto-a-zumbador entonces inicio
    coge-zumbador;
    come(sucede(a));
fin sino inicio
    av(a);
fin;
fin;

define-nueva-instruccion  cuenta(n) como inicio
si junto-a-zumbador entonces inicio
    si frente-libre entonces inicio
        avanza;
        cuenta(sucede(n));
    fin sino inicio
        si no orientado-al-sur y frente-bloqueado entonces inicio
            gira-izquierda;
            cuenta(n);
        fin sino inicio
            gira-izquierda;
                repetir precede(precede(n)) veces inicio
                    come(0);
                fin;
                mientras junto-a-zumbador hacer
                coge-zumbador;
        fin;
    fin;
fin;
fin;

    inicia-ejecucion
    mientras no orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    mientras no orientado-al-este hacer
    gira-izquierda;   
    cuenta(0);
    mientras no orientado-al-oeste hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    mientras no orientado-al-sur hacer
    gira-izquierda;
    mientras frente-libre hacer
    avanza;
    busca(0);


        apagate;
    termina-ejecucion
finalizar-programa
