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 _="<->"