import Data.List (unfoldr, intercalate)
main :: IO ()
main = putStrLn . intercalate "," . reverse . unfoldr (\xs -> if length xs >= 3 then Just (reverse $ take 3 xs, drop 3 xs) else if null xs then Nothing else Just (reverse xs, [])) . reverse =<< getLine