iniciar-programa
define-nueva-instruccion g(w) como repetir w veces gira-izquierda;
define-nueva-instruccion acomoda(x) como inicio
si frente-bloqueado y orientado-al-sur y derecha-bloqueada entonces inicio
 repetir x veces deja-zumbador;
 apagate;
fin;
  mientras junto-a-zumbador y frente-libre hacer avanza;
  si no-junto-a-zumbador   entonces inicio
    g(3);
    si frente-bloqueado  entonces inicio
      g(3);
      mientras frente-libre hacer inicio
      si junto-a-zumbador entonces coge-zumbador;
       avanza;
       si junto-a-zumbador entonces coge-zumbador;
      fin;
      g(3);
      mientras frente-libre hacer inicio
      si junto-a-zumbador entonces coge-zumbador;
       avanza;
       si junto-a-zumbador entonces coge-zumbador;
      fin;
    fin;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    si frente-bloqueado y no-junto-a-zumbador entonces inicio
        g(3);
        si frente-bloqueado y izquierda-bloqueada entonces g(2);
      mientras frente-libre hacer inicio
      si junto-a-zumbador entonces coge-zumbador;
       avanza;
       si junto-a-zumbador entonces coge-zumbador;
      fin;
      g(3);
      mientras frente-libre hacer inicio
      si junto-a-zumbador entonces coge-zumbador;
       avanza;
       si junto-a-zumbador entonces coge-zumbador;
      fin;

      repetir x veces deja-zumbador;
      deja-zumbador;
      apagate;
    fin;
    g(1);
    acomoda(sucede(x));
  fin;
  si frente-bloqueado y orientado-al-norte entonces inicio
    g(2);
    mientras frente-libre hacer inicio
     si junto-a-zumbador entonces coge-zumbador;
    avanza;

    fin;
    g(3);
    mientras frente-libre hacer inicio
     si junto-a-zumbador entonces coge-zumbador;
    avanza;
    fin;
  fin;
  deja-zumbador;
fin;
  define-nueva-instruccion vigas como inicio
     mientras frente-libre hacer inicio
       si junto-a-zumbador entonces coge-zumbador;
       avanza;
       si junto-a-zumbador entonces coge-zumbador;
     fin;
     si frente-bloqueado y ningun-zumbador-en-la-mochila entonces inicio
     repetir 2 veces gira-izquierda;
     mientras frente-libre hacer avanza;
       gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    vigas;
     fin;
     si frente-bloqueado y algun-zumbador-en-la-mochila entonces inicio
     repetir 2 veces gira-izquierda;
     mientras algun-zumbador-en-la-mochila hacer inicio
     deja-zumbador;
     si frente-libre entonces avanza;
   fin;

   mientras frente-libre hacer avanza;
   si frente-bloqueado y izquierda-bloqueada entonces sal-de-instruccion;
       gira-izquierda;
    si frente-libre entonces avanza;
    gira-izquierda;
    vigas;
     fin;
  fin;
    inicia-ejecucion
    si frente-bloqueado entonces apagate;
    si frente-libre entonces inicio
       mientras frente-libre hacer inicio
         si junto-a-zumbador entonces coge-zumbador;
         avanza;
          si junto-a-zumbador entonces coge-zumbador;
       fin;
       si ningun-zumbador-en-la-mochila entonces apagate;
       si frente-bloqueado y algun-zumbador-en-la-mochila entonces inicio
         g(2);
         mientras algun-zumbador-en-la-mochila hacer inicio
            deja-zumbador;
            si frente-libre entonces avanza;
         fin;
         mientras frente-libre hacer avanza;
         g(2);

       fin;
    fin;
    avanza;
    gira-izquierda;
    mientras frente-libre hacer avanza;
    repetir 3 veces gira-izquierda;
    vigas;
    repetir 2 veces gira-izquierda;
    mientras no-junto-a-zumbador y frente-libre hacer avanza;
    gira-izquierda;
    acomoda(0);
        apagate;
    termina-ejecucion
finalizar-programa
