iniciar-programa
    define-nueva-instruccion g(x) como inicio
        repetir x veces gira-izquierda;
    fin;
    define-nueva-instruccion fla como inicio
        mientras frente-libre hacer avanza;
    fin;
    define-nueva-instruccion cuenta(x) como inicio
        repetir x veces coge-zumbador;
        si junto-a-zumbador entonces inicio
            repetir x veces deja-zumbador;
            si frente-libre entonces inicio
                avanza; cuenta(x);
            fin
            sino inicio
                g(2); fla;
                si izquierda-libre entonces inicio
                    g(1); avanza; g(1); cuenta(x);
                fin
                sino inicio
                    g(3); fla; g(3); cuenta(sucede(x));
                fin;
            fin;
        fin
        sino inicio
            repetir 100 veces deja-zumbador;
            apagate;
        fin;
    fin;
    inicia-ejecucion
    mientras no-orientado-al-sur hacer g(1);
    fla; g(3); fla; g(3);
    cuenta(0);
        apagate;
    termina-ejecucion
finalizar-programa
 