import Data.List
import qualified Data.Map as Map

f::Integer->Bool
f n
   |(abs n)<10=True
   |n `mod` 10==0=f (n `div` 10)
   |otherwise=False

main =do
      t<-getLine
      let (a:b:[])=map read (words t)::[Integer]
      putStrLn $ if (f a) && (f b) && ((abs a)>99) && ((abs b)>99) then show (a*b `div` 10) else if (a*b>99999999) || ((a*b)<(-99999999)) then "E" else show (a*b)