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 coge(n) como inicio
      si junto-a-zumbador y no (si-es-cero(n)) entonces inicio
         coge-zumbador;
         coge(precede(n));
      fin;
   fin;
   define-nueva-instruccion mide(n) como inicio
      si frente-libre entonces inicio
         avanza;
         mide(sucede(n));
      fin
      sino inicio
         si orientado-al-oeste entonces inicio
            norte;
            si frente-libre entonces inicio
               avanza;
               este;
               mide(n);
            fin
            sino inicio
               sur;
               avanza;
               oeste;
               mientras frente-libre hacer
                  avanza;
               sur;
               mientras frente-libre hacer
                  avanza;
               este;
               repetir 4 veces
                  avanza;
               repetir n veces
                  coge-zumbador;
               oeste;
               mientras frente-libre hacer
                  avanza;
               mientras algun-zumbador-en-la-mochila hacer
                  deja-zumbador;
            fin;
         fin;
         si orientado-al-este entonces inicio
            norte;
            si frente-libre entonces inicio
               avanza;
               oeste;
              mide(n);
            fin
            sino inicio
               oeste;
               mientras frente-libre hacer
                  avanza;
               sur;
               avanza;
               avanza;
               oeste;
               mientras frente-libre hacer
                  avanza;
               sur;
               mientras frente-libre hacer
                  avanza;
               este;
               repetir 4 veces
                  avanza;
               repetir n veces
                  coge-zumbador;
               oeste;
               mientras frente-libre hacer
                  avanza;
               coge(n);
               repetir n veces
                  deja-zumbador;
            fin;
         fin;
      fin;
   fin;
   define-nueva-instruccion orienta como inicio
      norte;
      avanza;
      avanza;
      este;
      avanza;
      avanza;
      avanza;
      mide(2);
      norte;
      repetir 5 veces
         avanza;
      este;
      repetir 3 veces
         avanza;
      mide(3);
   fin;
    inicia-ejecucion
       orienta;
        apagate;
    termina-ejecucion
finalizar-programa