y#z|yz=y-z|0<1=y*z f=foldl1(#).map read.words k(x,z:y)=putStr.take(99*(f x-f y)^2)$x++z:y++"\n" m@main=getLine>>=k.span(<'=')>>m