open Batteries
let () =
  let a,b,c = Scanf.scanf "%s %s %s " (fun a b c -> a,b,c) in

  let a = String.uppercase_ascii (String.sub a 0 1) in
  let b = String.uppercase_ascii (String.sub b 0 1) in
  let c = String.uppercase_ascii (String.sub c 0 1) in

  Printf.printf "%s\n" (a ^ b ^ c)
