open Batteries

let solve line =
  Text.nsplit line @@ Text.of_string " "
  |> List.fold_left (fun ret s -> Text.append_char (Text.get s 0) ret) Text.empty

let () =
  Text.read_line IO.stdin
  |> solve
  |> Text.to_string
  |> print_endline
