g[]=[]
g(',':s)=", "++g s
g(a:s)=a:g s
r=readLn
f x=do i<-r;mapM(\_->x)[1..i]
main=f(f r)>>=putStr.g.show