#!perl -lpa $_='(6-2)*(0-6+((8=(2-=0)*2+(6=3-1)*6)*(5-=1)-(9=(4-=0)*4+5*5)*6)/(5=2*5-4*6)-2)>(3-7)*((9*2-8*4)/5-7+1-6)';$_=s/\d/\$F[$&]/g&eval