Scanf.scanf "%d" (fun d ->
    let rec loop i digits =
        let q = string_of_int i in
        let qn = String.length q in
        if d > digits + qn then loop (i + 1) (digits + qn) else 
            Printf.printf "%c\n" q.[d - digits - 1]
    in
    loop 1 0
)