iniciar-programa
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 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 ir11 como
 inicio
  oeste;
  mientras frente-libre hacer avanza;
  sur;
  mientras frente-libre hacer avanza;
  norte;
 fin;

define-nueva-instruccion recogerx(n) como
 inicio
  si junto-a-zumbador entonces
   inicio
    coge-zumbador;
    recogerx(sucede(n));

   fin;
    mientras frente-libre hacer
     inicio
      repetir n veces si frente-libre entonces avanza;
      deja-zumbador;
     fin;
 fin;

define-nueva-instruccion recogery(n) como
 inicio
  si junto-a-zumbador entonces
   inicio
    coge-zumbador;
    recogery(sucede(n));

   fin
    sino
     inicio
      oeste;
      avanza;
      norte;
     fin;
     mientras frente-libre hacer
      inicio
       repetir n veces si frente-libre entonces avanza;
       deja-zumbador;
      fin;
 fin;

define-nueva-instruccion subir como
 inicio
  mientras frente-libre hacer
   inicio
    mientras no junto-a-zumbador hacer avanza;
    si junto-a-zumbador entonces
     inicio
      coge-zumbador;
      si junto-a-zumbador entonces
       inicio
        sur;
        sal-de-instruccion;
       fin;
     fin;
   fin;
 fin;

define-nueva-instruccion contar como
 inicio
  si frente-libre entonces
   inicio
    avanza;
    contar;
    deja-zumbador;
   fin
    sino
     inicio
      este;
      repetir 2 veces avanza;
     fin;
 fin;
    inicia-ejecucion
      ir11;
      recogerx(0);
      ir11;
      este;
      avanza;
      recogery(0);
      ir11;
      subir;
      contar;

        apagate;
    termina-ejecucion
finalizar-programa
