main=interact$unlines.f.init f s=t:div![1,0]++["=*"!!(0^mod i 12)|i<-[2-length t..1]]:mod![0..4]++[t]where(%)!t=[do x<-s;g$read[x]%5-y|y<-t];t=s>>"===" g 0=" | " g _="<->"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).