(let*((s(read-line))(x(length s)))(defmacro m(x)`(doseq(c s(terpri))(princ(if,x" | ""<->"))))#1=(format t"~V@{===~}
"x t)(m #2=(char> c #\4))(m(not #2#))(princ(subseq(format()"~9@{~10@{=~}*=~}
"t)(*(- 36 x)3)))(dotimes(d 5)(m(=(mod(-(char-code c)3)5)d)))#1#)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).