let ``No.756 チャンパーノウン定数 (1)``() =

  let rec loop n i =
    let len = (string n).Length

    match (i <= len) with
    | false -> loop (n+1) (i-len)
    | true  -> (string n).[i-1]

  stdin.ReadLine()|>int
  |> loop 1
  |> stdout.WriteLine

  ()
``No.756 チャンパーノウン定数 (1)``()