import Control.Applicative
import Data.List
import Data.List.Split (chunksOf)
main :: IO ()
main = solve <$> getLine >>= putStrLn

solve :: String -> String
solve = reverse . intercalate "," . chunksOf 3 . reverse