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

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