List.intersperse使って
putStrLn $ concat $ intersperse "," ["a","b","c"]