(let[(n(x->number(#0=read-line)))(s(#0#))](dotimes(i n)(dolist(c(string->list s))(format #t"~a~v,,,v@a"c(- n 1)(if(>(*(- n i 1)i)0)#\ c)c))(print)))