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