#!perl -pa use bigrat;@F=-1*$'%$`/$'*($f=1/int$'/$`+.999),s/$/ + $f/while@F~~/\//;s/\+/=/