(let*((j string-join)(n(read))(!(read-char))(s(string->list(read-line)))(t(j(map(pa$ make-string n)s)"")))(print(j`(,t,@(make-list(- n 2)(j(map(lambda(c)#`",c,(make-string(- n 2)),c")s)"")),t)"
")))