import Data.List

splitEvery3 :: [Char] -> [[Char]]
splitEvery3 = takeWhile (not . null) . map (take 3) . iterate (drop 3)

main :: IO ()
main = getLine >>= putStrLn . reverse . concat . intersperse "," . splitEvery3 . reverse