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 cuenta(n) como inicio
       si junto-a-zumbador y no si-es-cero(n) entonces inicio
          coge-zumbador;
          cuenta(precede(n));
          deja-zumbador;
       fin
       sino inicio
          si junto-a-zumbador y si-es-cero(n) entonces inicio
             este;
          fin
          sino inicio
             sur;
          fin;
       fin;
    fin;
    define-nueva-instruccion edif(n) como inicio
       si orientado-al-este entonces inicio
          si junto-a-zumbador entonces inicio
             coge-zumbador;
             edif(sucede(n));
          fin
          sino inicio
             norte;
             edif(n);
          fin;
       fin
       sino inicio
          mientras no-junto-a-zumbador y frente-libre hacer
             avanza;
          si junto-a-zumbador entonces inicio
             cuenta(n);
             si orientado-al-este entonces inicio
                edif(0);
             fin
             sino inicio
                mientras junto-a-zumbador hacer
                   coge-zumbador;
                norte;
                edif(n);
             fin;
          fin
          sino inicio
             sur;
             mientras frente-libre hacer
                avanza;
             norte;
             repetir n veces inicio
                deja-zumbador;
                si frente-libre entonces
                   avanza;
             fin;
             sur;
             mientras frente-libre hacer
                avanza;
          fin;
       fin;
    fin;
    inicia-ejecucion
        este;
        mientras frente-libre hacer inicio
           norte;
           edif(0);
           este;
           avanza;
        fin;
        norte;
        edif(0);
        apagate;
    termina-ejecucion
finalizar-programa
