iniciar-programa
    define-nueva-instruccion cuenta(x) como inicio
        si no-junto-a-zumbador entonces inicio
            avanza;
            cuenta(sucede(x));
        fin sino inicio
            repetir 2 veces gira-izquierda;
            coge-zumbador;
            repetir x veces avanza;
            repetir 2 veces gira-izquierda;
            repetir x veces deja-zumbador;
            deja-zumbador;
            gira-izquierda;
            avanza;
            repetir 3 veces gira-izquierda;
        fin;
        fin;
    define-nueva-instruccion cuenta1(b) como inicio
          si no-junto-a-zumbador entonces inicio
            avanza;
            cuenta1(sucede(b));
        fin sino inicio
            repetir 2 veces gira-izquierda;
            coge-zumbador;
            repetir b veces inicio
                si frente-libre entonces avanza;
            fin;
            repetir 2 veces gira-izquierda;
            repetir b veces deja-zumbador;
            deja-zumbador;
            repetir 3 veces gira-izquierda;
            avanza;
            gira-izquierda;

        fin;
    fin;
    define-nueva-instruccion BuscaDonde(a) como inicio
          mientras no-junto-a-zumbador hacer inicio
              si frente-libre entonces inicio
                  avanza;
                  BuscaDonde(sucede(a));
              fin sino inicio
                  si frente-bloqueado y no-junto-a-zumbador entonces inicio
                      repetir 2 veces gira-izquierda;
                      repetir a veces avanza;
                      mientras no-junto-a-zumbador hacer cuenta(0);
                      si junto-a-zumbador entonces apagate;
                  fin;
              fin;
          fin;
          si junto-a-zumbador entonces inicio
              repetir 2 veces gira-izquierda;
              repetir a veces avanza;
              repetir 2 veces gira-izquierda;
              mientras no-junto-a-zumbador hacer cuenta1(0);
             si junto-a-zumbador entonces apagate;
          fin;
    fin;
    inicia-ejecucion
         mientras no-orientado-al-sur hacer gira-izquierda;
          avanza;
          gira-izquierda;
        BuscaDonde(0);
        apagate;
    termina-ejecucion
finalizar-programa
