iniciar-programa
  define-nueva-instruccion norte como inicio
      mientras no-orientado-al-norte 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 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 al-frente como inicio
      mientras frente-libre hacer inicio
          avanza;
      fin;
  fin;
  define-nueva-instruccion ve-a-1-1 como inicio
      oeste;
      al-frente;
      este;
      avanza;
      sur;
      al-frente;
      oeste;
      al-frente;
  fin;
  define-nueva-instruccion ve-a-1-4 como inicio
      ve-a-1-1;
      este;
      avanza;
      norte;
      repetir 3 veces avanzA;
      oeste;
      avanza;
  fin;
  define-nueva-instruccion ve-a-3-3 como inicio
      ve-a-1-1;
      este;
      repetir 2 veces avanza;
      norte;
      repetir 2 veces avanza;
  fin;
  define-nueva-instruccion toma-b(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          toma-b(n);
          repetir n veces inicio
              deja-zumbador;
          fin;
      fin sino inicio
          este;
          avanza;
          sur;
          avanza;
          oeste;
          avanzA;
      fin;
  fin;
  define-nueva-instruccion toma-a(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          toma-a(sucede(n));
      fin sino inicio
          repetir n veces inicio
              deja-zumbador;
          fin;
          sur;
          avanza;
          toma-b(n);
      fin;
  fin;
  define-nueva-instruccion toma-d(n) como inicio


  fin;

  define-nueva-instruccion toma-c(n) como inicio
      si junto-a-zumbador entonces inicio
          coge-zumbador;
          sur;
          avanza;
          este;
          avanza;
          norte;
          avanzA;
          si junto-a-zumbador entonces inicio
              coge-zumbador;
              sur;
              avanzA;
              oeste;
              avanza;
              norte;
              avanza;
              toma-c(sucede(n));
          fin sino inicio
              sur;
              avanzA;
              repetir n veces inicio
                  deja-zumbador;
              fin;
          fin;

      fin sino inicio
          repetir n veces inicio
              deja-zumbador;
          fin;
          norte;
          avanzA;
          este;
          avanzA;
          deja-zumbador;
          este;
          avanzA;
          sur;
          avanzA;
          oeste;
          avanza;
          si junto-a-zumbador entonces inicio
              sur;
              avanzA;
              oeste;
              avanza;
              norte;
              avanza;
              toma-c(0);
          fin;
      fin;
  fin;

  define-nueva-instruccion multiplicacion como inicio
      ve-a-1-4;
      toma-a(0);

  fin;
  define-nueva-instruccion divicion como inicio
      ve-a-3-3;
      toma-c(0);
  fin;

    inicia-ejecucion
        multiplicacion;
        divicion;
        apagate;
    termina-ejecucion
finalizar-programa
