(set-syntax-from-char #\, #\ )(setq b(read)n(read)s(read-line)u'(12 5 1 8)u(rplacd(last u)u))(do((i 1(1+ i))(v u(cdr v)))((> i n))(dotimes(i(mod(*(car v)b)13))(princ #\ ))(princ s)(terpri))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).