iniciar-programa
    define-nueva-instruccion este como mientras no-orientado-al-este hacer gira-izquierda;
      define-nueva-instruccion oeste como mientras no-orientado-al-oeste hacer gira-izquierda;
        define-nueva-instruccion norte como mientras no-orientado-al-norte hacer gira-izquierda;
          define-nueva-instruccion sur como mientras no-orientado-al-sur hacer gira-izquierda;


     define-nueva-instruccion contar1 como
         inicio
             si frente-libre entonces
                 inicio
                     avanza;
                     contar1;
                     avanza;
                 fin sino
                     inicio
                         este;
                         mientras frente-libre hacer avanza;
                         norte;
                         mientras derecha-bloqueada hacer avanza;
                         este;
                         avanza;
                         sur;
                         mientras frente-libre hacer avanza;
                         este;
                     fin;
         fin;

     define-nueva-instruccion contar2 como
          inicio
              si junto-a-zumbador entonces
                  inicio
                      coge-zumbador;
                      contar2;
                      deja-zumbador;
                  fin sino
                      inicio
                          oeste;
                          contar1;
                      fin;
          fin;

       define-nueva-instruccion regreso como
           inicio
               oeste;
               mientras frente-libre hacer avanza;
               norte;
               mientras izquierda-bloqueada hacer avanza;
               oeste;
               avanza;
               sur;
               mientras frente-libre hacer avanza;
               oeste;
               mientras frente-libre hacer avanza;
               este;
               mientras no-junto-a-zumbador hacer
                   inicio
                       si frente-libre entonces
                           inicio
                               avanza;
                           fin sino
                               inicio
                                   oeste;
                                   mientras frente-libre hacer avanza;
                                   apagate;
                               fin;
                   fin;
           fin;


    inicia-ejecucion
    este;
    mientras no-junto-a-zumbador hacer
        inicio
            si frente-libre entonces
                inicio
                    avanza;
                fin sino
                    inicio
                        apagate;
                    fin;
        fin;
    mientras junto-a-zumbador hacer
        inicio
            contar2;
            regreso;
        fin;

        apagate;
    termina-ejecucion
finalizar-programa
