open Scanf
open Printf
open Char

let () = scanf "%s %s %s" (fun a b c->
      escaped (uppercase_ascii a.[0])
    ^ escaped (uppercase_ascii b.[0])
    ^ escaped (uppercase_ascii c.[0])
  ) |> printf "%s\n"