let () = 
    let s = Scanf.scanf "%s\n" (fun x -> x) in
    let a = String.sub s 0 5 in
    let b = String.sub s 6 7 in
    let c = String.sub s 13 5 in
    Printf.printf "%s\n" (a ^ " " ^ b ^ " " ^ c)
