main = do
    [a, b] <- map read . words <$> getLine
    putStrLn $ solve a b

solve :: Int -> Int -> String
solve 0 _ = "0"
solve _ 0 = "0"
solve a b =
    let max = 99999999
        prod = a * b
        manyZeros = a `mod` 100 == 0 && b `mod` 100 == 0
        mental = manyZeros && simple a && simple b
        in
    if mental
       then init $ show prod
       else if abs prod <= max then show prod else "E"

simple :: Int -> Bool
simple n = (abs $ read nonZero) <= 9
    where nonZero = reverse $ dropWhile (== '0') $ reverse $ show n