hq9plus.mill

proc hq9plus(code: String) {
    let $accumulator = 0
    for code-points(code) {
        switch %_ {
            case 'h'c => outln("Hello, world!")
            case 'q'c => outln(code)
            case '9'c => bottles(99)
            case '+'c => $accumulator += 1
            default =>
        }
    }
}

proc bottles($n: N) {
    while $n > 0 {
        let container = if n == 1 { "bottle" } else { "bottles" }
        outln([|#{n} #{container} of beer on the wall,|])
        outln([|#{n} #{container} of beer,|])
        outln("take one down, pass it around,")
        $n -= 1
    }
    outln("no more bottles of beer on the wall!")
}