gets p;sub'SQRT','134.77-'while gsub!(/=(\w\S+)/){(c=$1.gsub(r=/[A-L](\d+)/){|b|~/(.*\n){#{$1.to_i-1}}(.*?\t){#{$&[0]%?A}}(\S+)/;$3["="]?b:$3.to_f})[r]?"="+c:eval(c)};puts gsub(/\d\.\d+/){("%.2f"%$&).sub /(.0)?0$/,''}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).