iniciar-programa
    define-nueva-instruccion contarunos(m) como inicio
        si no junto-a-zumbador entonces inicio
        si frente-bloqueado entonces inicio
        mientras no orientado-al-oeste hacer gira-izquierda;
        mientras frente-libre hacer avanza;
        repetir 2 veces gira-izquierda;
        repetir m veces inicio
        deja-zumbador;
        si frente-libre entonces avanza;
        si frente-bloqueado entonces apagate;
        fin;
        sal-de-instruccion;
        fin;
        si frente-libre entonces avanza;
        contarunos(m);
        fin;
        si junto-a-zumbador entonces inicio       
        coge-zumbador;
        contarunos(sucede(m));
        fin;
    fin;
    define-nueva-instruccion comer(n) como inicio
     si no frente-libre y no junto-a-zumbador entonces inicio
       mientras no orientado-al-oeste hacer gira-izquierda;
                mientras frente-libre hacer avanza;
                repetir 2 veces gira-izquierda;
               contarunos(0);
               mientras no orientado-al-este hacer gira-izquierda;
               mientras frente-libre hacer avanza;
               repetir 2 veces gira-izquierda;
               repetir n veces inicio
               repetir 2 veces deja-zumbador;
               si frente-libre entonces avanza;
               fin;
               si no junto-a-zumbador entonces apagate;
               si frente-bloqueado entonces apagate;
               si junto-a-zumbador entonces apagate;
           fin;
        mientras no junto-a-zumbador  hacer inicio
        si frente-libre entonces avanza;
        comer(n);
        fin;
        si junto-a-zumbador entonces inicio
        coge-zumbador;
        si no junto-a-zumbador entonces inicio
           deja-zumbador;
           si frente-libre entonces avanza;
           si no frente-libre  y no junto-a-zumbador entonces inicio
                mientras no orientado-al-oeste hacer gira-izquierda;
                mientras frente-libre hacer avanza;
                repetir 2 veces gira-izquierda;
               contarunos(0);
               mientras no orientado-al-este hacer gira-izquierda;
               mientras frente-libre hacer avanza;
               repetir 2 veces gira-izquierda;
               repetir n veces inicio
               repetir 2 veces deja-zumbador;
               si frente-libre entonces avanza;
               fin;
               si no junto-a-zumbador entonces apagate;
                 si junto-a-zumbador entonces apagate;
               si frente-bloqueado entonces apagate;
           fin;
           si frente-bloqueado y junto-a-zumbador entonces inicio
               si junto-a-zumbador entonces coge-zumbador;
               si junto-a-zumbador entonces inicio
               coge-zumbador;
               comer(sucede(n));
               fin;
               si no junto-a-zumbador entonces deja-zumbador;
               repetir 2 veces gira-izquierda;
               mientras frente-libre hacer avanza;
               repetir 2 veces gira-izquierda;
                contarunos(0);
           fin;
           comer(n);
          fin;
        fin;
        si junto-a-zumbador entonces inicio
        coge-zumbador;
        comer(sucede(n));
        fin;
    fin;
    inicia-ejecucion
        mientras no orientado-al-oeste hacer gira-izquierda;
        mientras frente-libre hacer avanza;
        repetir 2 veces gira-izquierda;
        comer(0);
    termina-ejecucion
finalizar-programa
