s ','=", "
s x=[x]
r=readLn
f g=do n<-r;mapM id$g<$[1..n]
main=f(f$r)>>=putStr.(>>=s).show