iniciar-programa
define-nueva-instruccion oeste como mientras no orientado-al-oeste hacer gira-izquierda;
define-nueva-instruccion camina como mientras frente-libre hacer avanza;
define-nueva-instruccion avanzar como mientras no junto-a-zumbador y frente-libre hacer avanza;
define-nueva-instruccion este como mientras no orientado-al-este hacer gira-izquierda;
define-nueva-instruccion derecha como repetir 3 veces gira-izquierda;
define-nueva-instruccion voltea como repetir 2 veces gira-izquierda;
define-nueva-instruccion ordena(k) como inicio
    si junto-a-zumbador y orientado-al-oeste entonces inicio
     si frente-bloqueado y no junto-a-zumbador entonces inicio
            voltea;
        fin;
        si junto-a-zumbador y frente-bloqueado entonces inicio
            coge-zumbador;
            si no junto-a-zumbador entonces inicio
                voltea;
            fin sino inicio
                este;
                camina;
                voltea;
                deja-zumbador;
                oeste;
                camina;
                coge-zumbador;
         fin;
         fin;
        si frente-libre y orientado-al-oeste entonces inicio
            coge-zumbador;
            si frente-libre entonces inicio
                avanza;
            fin;
        fin;

        si orientado-al-oeste entonces inicio
            avanzar;
        fin;
        ordena(sucede(k));
        fin sino inicio
            oeste;
            camina;
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                este;
                si frente-libre entonces inicio
                    avanza;
                    mientras junto-a-zumbador y frente-libre hacer inicio
                        avanza;
                    fin;
                    deja-zumbador;
                fin;
                oeste;
                camina;
            fin;
            repetir k veces inicio
                deja-zumbador;
            fin;
    fin;
fin;
define-nueva-instruccion cuenta(z) como inicio
    si junto-a-zumbador entonces inicio
        coge-zumbador;
        avanzar;
        cuenta(sucede(z));
        fin sino inicio
        este;
        camina;
        repetir z veces inicio
            deja-zumbador;
        fin;
        oeste;
        camina;
        repetir z veces inicio
            coge-zumbador;
        fin;
     fin;
 fin;
 define-nueva-instruccion karelianitas(v) como inicio
     si junto-a-zumbador entonces inicio
         coge-zumbador;
         karelianitas(sucede(v));
         fin sino inicio
             repetir v veces inicio
                 deja-zumbador;
                 si frente-libre entonces inicio
                     avanza;
                 fin;
            fin;
          apagate;
     fin;
 fin;
 define-nueva-instruccion karelianitos(m) como inicio
     si junto-a-zumbador entonces inicio
         coge-zumbador;
         karelianitos(sucede(m));
         fin sino inicio
             repetir m veces inicio
                 repetir 2 veces inicio
                     deja-zumbador;
                 fin;
                 si frente-libre entonces inicio
                     avanza;
                 fin sino inicio
                     apagate;
                fin;     
             fin;
        fin;
        camina;
        voltea;
        karelianitas(0);
    fin;
    inicia-ejecucion
    este;
    camina;
    voltea;
    avanzar;
    si frente-bloqueado y no junto-a-zumbador entonces inicio
        apagate;
    fin;
    ordena(0);
    voltea;
    si frente-libre entonces inicio
        avanza;
        avanzar;
        cuenta(0);
        este;
        camina;
        voltea;
        karelianitos(precede(1));
   fin;
        apagate;
    termina-ejecucion
finalizar-programa
