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  -> match  i , len with
               | 1 , 1 -> n
               | 1 , 2 -> n / 10
               | 1 , 3 -> 1
               | 2 , 2 -> n % 10
               | 2 , 3 -> 0
               | 3 , 3 -> 1

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

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