perl -le "print 2*1.5*(50/100)*2*2.5*(55/100)*2*3.5*(60/100)" 17.325