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 rellena  como inicio
     si no-junto-a-zumbador entonces inicio
         deja-zumbador;

         norte;
         si frente-libre entonces inicio
         avanza;
         rellena;
         sur;
         avanza;
         fin;

         sur;
         si frente-libre entonces inicio
         avanza;
         rellena;
         norte;
         avanza;
         fin;

          este;
         si frente-libre entonces inicio
         avanza;
         rellena;
         oeste;
         avanza;
         fin;

         oeste;
         si frente-libre entonces inicio
         avanza;
         rellena;
         este;
         avanza;
         fin;

     fin;
 fin;
 define-nueva-instruccion g(x) como repetir x veces gira-izquierda;
 define-nueva-instruccion buscar_espacio   como inicio
     si junto-a-zumbador entonces inicio
         si frente-libre entonces inicio
             avanza;
             buscar_espacio;
         fin sino inicio
             g(1);
             si frente-bloqueado entonces inicio
                 sur;
                    mientras frente-libre hacer avanza;
                    oeste;
            mientras frente-libre hacer avanza;
                coge-zumbador;
                apagate;
             fin;
             avanza;
             g(1);
             mientras frente-libre hacer avanza;
             g(2);
             buscar_espacio;
         fin;
     fin sino inicio
         rellena;
         sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        g(2);
        deja-zumbador;
        buscar_espacio;
     fin;
 fin;
    inicia-ejecucion
        sur;
        mientras frente-libre hacer avanza;
        oeste;
        mientras frente-libre hacer avanza;
        rellena;
        este;
        buscar_espacio;
        apagate;
    termina-ejecucion
finalizar-programa
