Monadic string reader

gistfile1.fs

let GetS length =
    let rec get chars count =
            if count > 0
            then GetC >>= fun c -> get (chars@[c]) (count – 1)
            else Return IO String(List.toArray chars)
    get [] length;;