iniciar-programa
define-nueva-instruccion norte como inicio
    mientras no-orientado-al-norte hacer inicio
        gira-izquierda;
    fin;
fin;

define-nueva-instruccion sur como inicio
    mientras no-orientado-al-sur hacer inicio
        gira-izquierda;
    fin;
fin;

define-nueva-instruccion oeste como inicio
    mientras no-orientado-al-oeste hacer inicio
        gira-izquierda;
    fin;
fin;

define-nueva-instruccion este como inicio
    mientras no-orientado-al-este hacer inicio
        gira-izquierda;
    fin;
fin;

define-nueva-instruccion contar como inicio
    si junto-a-zumbador entonces inicio
       coge-zumbador;
       si junto-a-zumbador entonces inicio
          coge-zumbador;
          avanza;
          contar;
          oeste;
          si frente-libre entonces inicio
             deja-zumbador;
          fin
          sino inicio
              este;
              avanza;
              deja-zumbador;
              oeste;
          fin;
       fin
       sino inicio
           avanza;
           contar;
           si frente-bloqueado entonces inicio
              deja-zumbador;
           fin
           sino inicio
               avanza;
               deja-zumbador;
           fin;
       fin;
    fin;

    si no-junto-a-zumbador entonces inicio
        si orientado-al-norte entonces inicio
            este;
            avanza;
            sur;
            avanza;
            si junto-a-zumbador entonces inicio
                contar;
            fin
            sino inicio
                mientras frente-libre hacer inicio
                    avanza;
                fin;
                oeste;
                mientras frente-libre hacer inicio
                    avanza;
                fin;
            fin;
        fin
        sino inicio
            este;
            avanza;
            norte;
            avanza;
            si junto-a-zumbador entonces inicio
                contar;
            fin
            sino inicio
                sur;
                mientras frente-libre hacer inicio
                    avanza;
                fin;
                oeste;
                mientras frente-libre hacer inicio
                    avanza;
                fin;
            fin;
        fin;

    fin;
fin;

    inicia-ejecucion
    avanza;
    contar;
        apagate;
    termina-ejecucion
finalizar-programa
