iniciar-programa
    define-nueva-instruccion g(g) como repetir g veces gira-izquierda;
    define-nueva-instruccion a(A) como repetir a veces avanza;
    define-nueva-instruccion final (f) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            final(sucede(f));
        fin sino inicio
            si no-junto-a-zumbador y frente-libre entonces inicio
                avanza;
                final(f);
            fin;
            si frente-bloqueado entonces inicio
                si junto-a-zumbador entonces final(f);
                g(1);
                avanza;
                repetir f veces deja-zumbador;
                apagate;
            fin;
        fin;
    fin;
    define-nueva-instruccion orientar como inicio
        mientras no-orientado-al-sur hacer g(1);
        mientras frente-libre hacer a(1);
        g(3);
        mientras frente-libre hacer A(1);
        G(2);
        mientras junto-a-zumbador y frente-libre hacer avanza;
        G(2);
        si  frente-libre y no-junto-a-zumbador entonces avanza;
        si no-junto-a-zumbador y frente-bloqueado entonces inicio
            g(3);
            a(1);
            g(3);
            mientras frente-libre hacer avanza;
            g(2);
            mientras no-junto-a-zumbador hacer avanza;
            final(0);
        fin;
    fin;
    define-nueva-instruccion juntar (j) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            juntar(sucede(J));
        fin sino inicio
            si no-junto-a-zumbador entonces inicio
                mientras frente-libre hacer avanza;
                g(3);
                avanza;
                g(3);
                repetir precede(j) veces avanza;
                si no-junto-a-zumbador entonces deja-zumbador;
                orientar;
                juntar(0);
            fin;

        fin;
    fin;
    inicia-ejecucion
        orientar;
        juntar (0);
        apagate;
    termina-ejecucion
finalizar-programa
