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

  let rec loop n i =
   
    match i with
    | 1 -> n % 10
    | 2 -> if n < 10
            then loop (n+1) (i-1)
            else n % 10
    | 3 -> if n = 100 
            then 1
            else loop (n+1) (i-1)
    | _ -> loop (n+1) (i-1)

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

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