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 este como inicio
      mientras no-orientado-al-este 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 compara(n) como inicio
      si junto-a-zumbador y no si-es-cero (n) entonces inicio
          coge-zumbador;
          compara(precede(n));
          deja-zumbador;
      fin sino inicio
              si junto-a-zumbador entonces inicio
                  (*ES MENOR EL QUE TRAIGO*)
                  mientras junto-a-zumbador hacer inicio
                      coge-zumbador;
                  fin;
              fin sino inicio
                  (*ES MENOR EL QUE ESTABA*)
              fin;
      fin;
  fin;
  define-nueva-instruccion revisa (n) como inicio
      repetir 3 veces coge-zumbador;
      si junto-a-zumbador entonces inicio
          repetir 3 veces deja-zumbador;
          compara(n);
      fin sino inicio
          repetir n veces inicio
              deja-zumbador;
          fin;
      fin;
  fin;
  define-nueva-instruccion buscar(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          si junto-a-zumbador entonces inicio
              coge-zumbador;
              si junto-a-zumbador entonces inicio
                  repetir 2 veces deja-zumbador;
                  revisa(n);
              fin sino inicio
                  deja-zumbador;
                  buscar(sucede(n));
                  deja-zumbador;
              fin;
          fin sino inicio
          deja-zumbador;

          coge-zumbador;
          norte;
          si frente-libre entonces inicio
              avanza;
              buscar(n);
              sur;
              avanza;
          fin;
          sur;
          si frente-libre entonces inicio
              avanza;
              buscar(n);
              norte;
              avanza;
          fin;
          este;
          si frente-libre entonces inicio
              avanza;
              buscar(n);
              oeste;
              avanza;
          fin;
          oeste;
          si frente-libre entonces inicio
              avanza;
              buscar(n);
              este;
              avanza;
          fin;
          deja-zumbador;

          fin;
      fin;
  fin;
  define-nueva-instruccion resta(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          resta(precede(n));
      fin sino inicio
          este;
          avanza;
          repetir n veces inicio
              deja-zumbador;
          fin;
          apagate;
      fin;
  fin;
  define-nueva-instruccion llegar(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          si junto-a-zumbador entonces inicio
              coge-zumbador;
              si junto-a-zumbador entonces inicio
                  repetir 2 veces coge-zumbador;
                  resta(n);
              fin sino inicio
                  deja-zumbador;
                  llegar(n);
                  deja-zumbador;
              fin;
          fin sino inicio

              norte;
              si frente-libre entonces inicio
                  avanza;
                  llegar(n);
                  sur;
                  avanzA;
              fin;
              sur;
              si frente-libre entonces inicio
                  avanza;
                  llegar(n);
                  norte;
                  avanzA;
              fin;
              este;
              si frente-libre entonces inicio
                  avanza;
                  llegar(n);
                  oeste;
                  avanzA;
              fin;
              oeste;
              si frente-libre entonces inicio
                  avanza;
                  llegar(n);
                  este;
                  avanzA;
              fin;
          fin;
      fin;
  fin;
  define-nueva-instruccion toma-k(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          toma-k(sucede(n));
      fin sino inicio
          avanza;
          buscar(5);
          llegar(n);
      fin;
  fin;

    inicia-ejecucion
        toma-k(0);
        apagate;
    termina-ejecucion
finalizar-programa
