iniciar-programa

    define-nueva-instruccion orientaNorte como inicio
        mientras no orientado-al-norte hacer gira-izquierda;
    fin;
    define-nueva-instruccion orientaEste como inicio
        mientras no orientado-al-este hacer gira-izquierda;
    fin;
    define-nueva-instruccion orientaOeste como inicio
        mientras no orientado-al-oeste hacer gira-izquierda;
    fin;
    define-nueva-instruccion orientaSur como inicio
        mientras no orientado-al-sur hacer gira-izquierda;
    fin;

    define-nueva-instruccion ir11 como inicio
        orientaSur;
        mientras frente-libre hacer avanza;
        orientaOeste;
        mientras frente-libre hacer avanza;
        orientaNorte;
    fin;

    define-nueva-instruccion rellenarTorrente como inicio
        si no-junto-a-zumbador entonces inicio
            deja-zumbador;

            orientaNorte;
            si frente-libre entonces inicio
                avanza;
                rellenarTorrente;
                orientaSur;
                avanza;
            fin;

            orientaSur;
            si frente-libre entonces inicio
                avanza;
                rellenarTorrente;
                orientaNorte;
                avanza;
            fin;

            orientaEste;
            si frente-libre entonces inicio
                avanza;
                rellenarTorrente;
                orientaOeste;
                avanza;
            fin;

            orientaOeste;
            si frente-libre entonces inicio
                avanza;
                rellenarTorrente;
                orientaEste;
                avanza;
            fin;

        fin;
    fin;

    define-nueva-instruccion cuentaInfectadas como inicio
        orientaNorte;
        si junto-a-zumbador entonces inicio
            si frente-libre entonces inicio
                avanza;
                cuentaInfectadas;
            fin sino inicio
                si derecha-libre entonces inicio
                    orientaEste;
                    avanza;
                    orientaSur;
                    mientras frente-libre hacer avanza;
                    cuentaInfectadas;
                fin sino inicio
                    ir11;
                    mientras junto-a-zumbador hacer coge-zumbador;
                fin;
            fin;
        fin sino inicio
            rellenarTorrente;
            cuentaInfectadas;
            deja-zumbador;
        fin;
    fin;

    inicia-ejecucion
        ir11;
        rellenarTorrente;
        cuentaInfectadas;
        apagate;
    termina-ejecucion
finalizar-programa
