m@main=getLine>>=putStr.foldr(#)"\n">>m
a#x=a:[','|mod(length x)4<1]++x