let id x = x
let n = 19
let repeat f =
  let rec loop acc = function
    | 0 -> List.rev acc
    | n -> loop (f () :: acc) (n-1) in
  loop []

let r = repeat (fun () -> Scanf.scanf "%c" id) n

let rec makelist = function
  | [] -> []
  | a :: rest ->
     match a with
     | ',' -> ' ' :: makelist rest
     | _   -> a :: makelist rest

let rec list_to_string : char list -> string = fun cl ->
   String.concat "" @@ List.map (String.make 1) cl
	
let ans =
  let a = makelist r in
  list_to_string a

let () = Printf.printf "%s\n" ans