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