iniciar-programa
    define-nueva-instruccion atras como inicio
        gira-izquierda;
        gira-izquierda;
    fin;
    define-nueva-instruccion derecha como inicio
        atras;
        gira-izquierda;
    fin;
    define-nueva-instruccion fla como inicio
        mientras frente-libre hacer inicio
            avanza;
        fin;
    fin;
    define-nueva-instruccion cuenta(x) como inicio
        mientras orientado-al-este y frente-libre hacer inicio
        si junto-a-zumbador entonces inicio
            si junto-a-zumbador entonces inicio
                coge-zumbador;
                cuenta(sucede(x));
                si frente-bloqueado entonces inicio
                   deja-zumbador;
                fin;
            fin;
        fin;
         mientras no-junto-a-zumbador y frente-libre hacer avanza;
        fin;
    fin;
    define-nueva-instruccion checa(x) como inicio
    mientras orientado-al-este hacer inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            si junto-a-zumbador entonces inicio
                deja-zumbador;

            fin
            sino inicio
                checa(sucede(x));
                si junto-a-zumbador y orientado-al-norte entonces inicio
                     repetir 2 veces coge-zumbador;
                     derecha;
                     avanza;
                     mientras junto-a-zumbador hacer avanza;
                     repetir 2 veces deja-zumbador;
                     atras;
                     fla;
                 fin;
                 mientras no-orientado-al-oeste hacer gira-izquierda;
                deja-zumbador;
            fin;
            si frente-bloqueado y orientado-al-este y junto-a-zumbador entonces inicio
                atras;
                fla;
                derecha;
            fin;
            si frente-libre y orientado-al-este entonces inicio
                avanza;
            fin
            sino inicio
            si orientado-al-este y no-junto-a-zumbador entonces inicio
                atras;
                fla;
                derecha;
                fin;
            fin;
            fin;

        mientras no-junto-a-zumbador y orientado-al-este hacer inicio
             si frente-libre entonces inicio
                 avanza;
             fin
             sino inicio
                 atras;
                 fla;
                 si junto-a-zumbador entonces inicio
                     repetir 2 veces coge-zumbador;
                     atras;
                     avanza;
                     mientras junto-a-zumbador hacer avanza;
                     repetir 2 veces deja-zumbador;
                     atras;
                     fla;
                 fin;
             fin;
         fin;
     fin;
     fin;
     define-nueva-instruccion deja2(x) como inicio
         si junto-a-zumbador entonces inicio
             coge-zumbador;
             coge-zumbador;
             deja2(sucede(x));
             si orientado-al-este entonces inicio
                 atras;
             fin;
             deja-zumbador;
             deja-zumbador;
             avanza;
         fin;
     fin;
     define-nueva-instruccion deja1(x) como inicio
         si junto-a-zumbador entonces inicio
             coge-zumbador;
             deja1(sucede(x));
             si orientado-al-oeste entonces inicio
                 atras;
             fin;
             deja-zumbador;
             avanza;
         fin;
     fin;
    inicia-ejecucion
    mientras no-orientado-al-oeste hacer inicio
        gira-izquierda;
    fin;
    si frente-bloqueado y izquierda-bloqueada y derecha-bloqueada entonces inicio
        atras;
        si frente-bloqueado entonces inicio
            apagate;
        fin
        sino inicio
            atras;
        fin;
    fin;  
    fla;
    atras;
    checa(0);
    atras;
    si frente-libre entonces inicio
        avanza;
    fin
    sino inicio
        apagate;
    fin;
    cuenta(0);
    si junto-a-zumbador entonces inicio
        deja2(0);
    fin
    sino inicio
        atras;
    fin;
    fla;
    deja1(0);
        apagate;
    termina-ejecucion
finalizar-programa
