Rovarspraket en IO

isConsonant := method(chr,
    "bcdfghjklmnpqrstvwxzBCDFGHJKLMNPQRSTVWXZ" findSeq(chr) isNil not)

standardIO := File standardInput()

rovarspraket := method(string, output,
    if(string isEmpty,
        output,

        firstChar := string at(0) asCharacter
        tailString := string exSlice(1)

        rovarspraket(tailString, output ..
            if(isConsonant(firstChar),
                firstChar .. "o" .. firstChar,
                firstChar))))

main := method(
    "Saisissez une chaine : " println
    input := standardIO readLine
    a := rovarspraket(input, "")
    a println)

main