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 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' 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