Problem:
Score : 100 points

Problem Statement

As a New Year's gift, Dolphin received a string s of length 19.

The string s has the following format: [five lowercase English letters],[seven lowercase English letters],[five lowercase English letters].

Dolphin wants to convert the comma-separated string s into a space-separated string.

Write a program to perform the conversion for him.

Constraints

The length of s is 19.

The sixth and fourteenth characters in s are ,.

The other characters in s are lowercase English letters.

Input

The input is given from Standard Input in the following format:

s

Output

Print the string after the conversion.

Sample Input 1

happy,newyear,enjoy

Sample Output 1

happy newyear enjoy

Replace all the commas in happy,newyear,enjoy with spaces to obtain happy newyear enjoy.

Sample Input 2

haiku,atcoder,tasks

Sample Output 2

haiku atcoder tasks

Sample Input 3

abcde,fghihgf,edcba

Sample Output 3

abcde fghihgf edcba

Solution in OCaml (4.02.3) (judge verdict: Runtime Error)

let (sx,sy,tx,ty) = Scanf.scanf "%d %d %d %d" (fun a b c d -> (a,b,c,d) )

let rec firstx x y tx ty list =
  if (x < tx) then firstx (x+1) y tx ty ('R'::list) else
    if (x > tx) then firstx (x-1) y tx ty ('L'::list) else list

let rec firsty x y tx ty list =
  if (y < ty) then firsty x (y+1) tx ty ('U'::list) else
    if (y > ty) then firsty x (y-1) tx ty ('D'::list) else list

let rec secondx x y tx ty list =
  if (x < (tx+1)) then firstx (x+1) y tx ty ('R'::list) else
    if (x > (tx+1)) then firstx (x-1) y tx ty ('L'::list) else list

let rec secondy x y tx ty list =
  if (y < ty) then firsty x (y+1) tx ty ('U'::list) else
    if (y > ty) then firsty x (y-1) tx ty ('D'::list) else list
      
let rec listinv = function
  | [] -> []
  | a :: rest ->
     match a with
     | 'R' -> 'L' :: listinv rest
     | 'L' -> 'R' :: listinv rest
     | 'U' -> 'D' :: listinv rest
     | 'D' -> 'U' :: listinv rest
      
let list1 = firstx sx sy tx ty [] 
let list2 = firsty sx sy tx ty []
let list12 = list1 @ list2 
let list12' = listinv list12
let list3 = 'D' :: (firstx sx sy tx ty []) @ ['R'] 
let list4 = 'U' :: (firsty sx sy tx ty []) @ ['L'] 
let list34 = list3 @ list4
let list34' = listinv list34
let anslist = list12 @ list12' @ list34 @ list34'

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

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