($a,$b)=glob$_=<>;
print /^-?[^0]00+ -?[^0]00+$/ ? $a*$b/10 : abs($a*=$b)<1e8?$a:E