let f (a:int64) (b:int64) =
    let mul = a * b
    let isAnzan =
        let trim = fun (x:string) -> x.TrimEnd '0'
        let getNonZero = abs >> string >> trim
        let isOver = abs >> fun x -> x >= 100L
        let a' = a |> getNonZero
        let b' = b |> getNonZero
        let dig = [1 .. 9] |> List.map string
        let isIn x = dig |> List.contains x
        isIn a' && isIn b' && isOver a && isOver b
    let isCalable = -99999999L <= mul && mul <= 99999999L
    
    if isAnzan then
        mul / 10L |> string
    elif isCalable then
        mul |> string
    else
        "E"

let A,B = 
    let t = stdin.ReadLine().Split() |> Array.map int64
    t.[0], t.[1]

f A B |> stdout.WriteLine