iniciar-programa
define-nueva-instruccion gira(n) como inicio
   repetir n veces
      gira-izquierda;
fin;
define-nueva-instruccion norte como inicio
   mientras no-orientado-al-norte hacer
      gira(1);
fin;
define-nueva-instruccion sur como inicio
   mientras no-orientado-al-sur hacer
      gira(1);
fin;
define-nueva-instruccion este como inicio
   mientras no-orientado-al-este hacer
      gira(1);
fin;
define-nueva-instruccion oeste como inicio
   mientras no-orientado-al-oeste hacer
      gira(1);
fin;
define-nueva-instruccion carrera(n) como inicio
   si junto-a-zumbador entonces inicio
      coge-zumbador;
      carrera(sucede(n))
   fin
   sino inicio
      repetir n veces
         deja-zumbador;
      avanza;
      avanza;
      este;
      mientras no-junto-a-zumbador hacer
         avanza;
      coge-zumbador;
      repetir n veces
         si frente-libre entonces
            avanza;
      deja-zumbador;
      sur;
      avanza;
      oeste;
      mientras frente-libre hacer inicio
         si junto-a-zumbador entonces inicio
            coge-zumbador;
            norte;
            avanza;
            este;
            mientras no-junto-a-zumbador hacer
               avanza;
            coge-zumbador;
            oeste;
            mientras frente-libre hacer
               avanza;
            sur;
            mientras frente-libre hacer
               avanza;
            deja-zumbador;
            apagate;
         fin;
         avanza;
      fin;
      norte;
      si junto-a-zumbador entonces inicio
         carrera(0);
      fin
      sino inicio
         sur;
         mientras frente-libre hacer
            avanza;
         norte;
         deja-zumbador;
         avanza;
         carrera(0);
      fin;
   fin;
fin;
define-nueva-instruccion imposible(n) como inicio
    si junto-a-zumbador y no si-es-cero(n) entonces inicio
       coge-zumbador;
       imposible(precede(n));
    fin
    sino inicio
       si junto-a-zumbador y si-es-cero(n) entonces inicio
          repetir 4 veces
             deja-zumbador;
       fin;
       si no-junto-a-zumbador y no si-es-cero(n) entonces inicio
          repetir 4 veces
             deja-zumbador;
          repetir n veces
             coge-zumbador;
       fin;
       si no-junto-a-zumbador y si-es-cero(n) entonces inicio
          sur;
          avanza;
          repetir 4 veces
             deja-zumbador;
          apagate;
       fin;
    fin;
fin;
define-nueva-instruccion conejo(n) como inicio
   si junto-a-zumbador entonces inicio
      coge-zumbador;
      conejo(sucede(n))
   fin
   sino inicio
      repetir n veces
         deja-zumbador;
      avanza;
      avanza;
      este;
      repetir precede(n) veces
         avanza;
      deja-zumbador;
      sur;
      avanza;
      oeste;
      mientras frente-libre hacer inicio
         si junto-a-zumbador entonces inicio
            coge-zumbador;
            norte;
            avanza;
            este;
            mientras no-junto-a-zumbador hacer
               avanza;
            coge-zumbador;
            oeste;
            mientras frente-libre hacer
               avanza;
            sur;
            mientras frente-libre hacer
               avanza;
            apagate;
         fin;
         avanza;
      fin;
      sur;
      avanza;
      avanza;
      norte;
      carrera(0);
   fin;
fin;
    inicia-ejecucion
       avanza;
       imposible(4);
       sur;
       avanza;
       norte;
       deja-zumbador;
       avanza;
       avanza;
       conejo(0);
        apagate;
    termina-ejecucion
finalizar-programa