iniciar-programa
    define-nueva-instruccion gira (n) como inicio
        repetir n veces
            gira-izquierda;
    fin;
    define-nueva-instruccion portero (n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            portero (sucede(n));
        fin
        sino inicio
            gira (2);
            mientras frente-libre hacer
                avanza;
            gira (2);
            repetir precede(n) veces
                avanza;
            deja-zumbador;
            avanza;
            mientras frente-libre y no-junto-a-zumbador hacer
                avanza;
        fin;
    fin;
    define-nueva-instruccion area como inicio
        mientras frente-libre hacer
            avanza;
        deja-zumbador;
        gira (2);
        mientras frente-libre hacer
            avanza;
        gira (1);
        avanza;
        gira (1);
    fin;
    define-nueva-instruccion porteria (n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            porteria (sucede(n));
        fin
        sino inicio
            gira (2);
            mientras frente-libre y no-junto-a-zumbador hacer
                avanza;
            gira (3);
            repetir n veces
                area;
        fin;
    fin;
    define-nueva-instruccion orienta como inicio
        mientras no-orientado-al-oeste hacer
            gira (1);
        mientras frente-libre hacer
            avanza;
        gira (3);
        mientras frente-libre hacer
            avanza;
        gira (3);
    fin;
    define-nueva-instruccion izquierda (n) como inicio
        si frente-libre entonces inicio
            avanza;
            izquierda(sucede(n));
        fin
        sino inicio
            gira (2);
            mientras frente-libre hacer
                avanza;
            gira (3);
            mientras frente-libre hacer
                avanza;
            gira (1);
            avanza;
            repetir n veces
                deja-zumbador;
            gira (1);
            avanza;
            repetir n veces
                deja-zumbador;
            gira (2);
            avanza;
            orienta;
        fin;
    fin;
    define-nueva-instruccion derecha (n) como inicio
        si frente-libre entonces inicio
            avanza;
            derecha(sucede(n));
        fin
        sino inicio
            gira (3);
            mientras frente-libre hacer
                avanza;
            gira (1);
            avanza;
            avanza;
            repetir n veces
                deja-zumbador;
            gira (1);
            avanza;
            repetir n veces
                deja-zumbador;
            gira (2);
            avanza;
            gira (1);
        fin;
    fin;
    define-nueva-instruccion mayor (n) como inicio
        si no si-es-cero(n) y junto-a-zumbador entonces inicio
            coge-zumbador;
            mayor(precede(n));
        fin;
    fin;
    define-nueva-instruccion compara (n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            compara(sucede(n));
        fin
        sino inicio
            avanza;
            mayor (n);
            repetir n veces
                deja-zumbador;
        fin;
    fin;
    define-nueva-instruccion sii (n) como inicio
        si frente-libre entonces inicio
            avanza;
            sii(sucede(n));
        fin
        sino inicio
            gira (3);
            mientras frente-libre hacer
                avanza;
            gira (1);
            avanza;
            repetir sucede(n) veces
                deja-zumbador;
            apagate;
        fin;
    fin;
    define-nueva-instruccion karelgol (n) como inicio
        si junto-a-zumbador entonces inicio
            coge-zumbador;
            karelgol(sucede(n));
        fin
        sino inicio
            avanza;
            repetir n veces inicio
                si junto-a-zumbador entonces inicio
                    coge-zumbador;
                fin
                sino inicio
                    gira (2);
                    avanza;
                    orienta;
                    sii(0);
                fin;
            fin;
            gira (2);
            avanza;
            deja-zumbador;
        fin;
    fin;
    inicia-ejecucion
        gira (3);
        avanza;
        portero (0);
        mientras junto-a-zumbador hacer
            coge-zumbador;
        avanza;
        porteria (0);
        orienta;
        mientras no-junto-a-zumbador y frente-libre hacer
            avanza;
        gira (2);
        izquierda (0);
        mientras frente-libre hacer
            avanza;
        gira (2);
        mientras frente-libre y no-junto-a-zumbador hacer
            avanza;
        gira (2);
        derecha (0);
        gira (2);
        compara (0);
        gira (3);
        karelgol (0);
        apagate;
    termina-ejecucion
finalizar-programa