#!perl -pl s/ /*/;$_=int 1e-6+eval