main = getLine >>= putStrLn . tail . reverse . solve . reverse

solve [] = []
solve s = take 3 s ++ "," ++ solve (drop 3 s)