(setq n(read)c(read-char)m(*(1- n)2))(dotimes(i n)(dotimes(j(+(*(1- n)m)1 i))(princ(if(or(=(mod(+ j i)m)0)(=(mod(- j i)m)0))c #\ )))(princ #\
))