open System let solve a b = if a % 100m = 0m && b % 100m = 0m then Some(a * b / 10m) else let ab = a * b if Math.Abs(ab) > 99999999m then None else Some(ab) let () = let a, b = Console.ReadLine() |> fun s -> s.Split() |> fun abArr -> decimal abArr.[0], decimal abArr.[1] let result = match solve a b with | Some(x) -> sprintf "%.0M" x | None -> "E" printfn "%s" result