#!perl -p s/ /*/;$_=1e-6+eval|0