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

        fin;
    fin;
    define-nueva-instruccion colados(n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            colados(sucede(n));
        fin;
        si no junto-a-zumbador entonces inicio
        mientras no orientado-al-este hacer gira-izquierda;
            mientras no junto-a-zumbador hacer avanza;
            mientras junto-a-zumbador y frente-libre hacer avanza;
            si frente-bloqueado entonces inicio
                gira-izquierda;
                mientras junto-a-zumbador hacer avanza;
                repetir n veces deja-zumbador;
                g(2);
                mientras frente-libre hacer avanza;
                g(3);
                mientras  junto-a-zumbador y frente-libre hacer avanza;
              (*si frente-bloqueado y no junto-a-zumbador entonces apagate;*)
                g(2);
                avanza;
            fin;
            si no junto-a-zumbador entonces inicio
            repetir n veces deja-zumbador;
            g(2);
            mientras junto-a-zumbador y frente-libre hacer avanza;
            g(2);
            avanza;
            si frente-bloqueado y no junto-a-zumbador entonces apagate;
            fin;
        fin;
    fin;
    define-nueva-instruccion filtor(m) como inicio
        si junto-a-zumbador y frente-bloqueado entonces inicio
            coge-zumbador;
            filtor(sucede(m));
        fin;
        si no junto-a-zumbador y orientado-al-oeste entonces inicio
            g(1);
            si orientado-al-sur entonces filtor(precede(m));
        fin;
        si orientado-al-sur entonces inicio
            avanza;
            g(1);
            repetir m veces avanza;
        fin;
    fin;
    define-nueva-instruccion c(n) como  inicio
        si junto-a-zumbador y derecha-libre entonces inicio
            coge-zumbador;
            c(sucede(n));
        fin;
        si no junto-a-zumbador entonces inicio
        g(2);
        avanza;
        filtor(0);
        g(2);

        repetir n veces avanza;
        g(2);
        repetir n veces colados(0);
        fin;
        fin;
    inicia-ejecucion
        mientras no orientado-al-norte hacer gira-izquierda;
        avanza;
        g(3);
        avanza;
        c(0);
        mientras no junto-a-zumbador hacer avanza;
        mientras junto-a-zumbador hacer faltantes(0);
        apagate;
    termina-ejecucion
finalizar-programa
