my ($a,$b)=get.words;
say ($a&$b)~~/.00+/??$a*$b/10!!1e8>abs($a*$b)??$a*$b!!"E"