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