let () =
  let line = read_line () in
  let capitalize str =
    let len = String.length str in
    let rec loop i = match i with
        i when i=len -> ""
      | i -> (Char.uppercase str.[i] |> String.make 1)^(loop (i+1))
    in loop 0
  in capitalize line |> print_endline;;