// int -> int -> int optionlet tryDivide x y =match y with|0-> None|_-> Some (x / y)// int -> int -> int optionlet multiplyIfEven x y =match y %2with|0-> Some <| x * y|_-> None// int option let resultNone = option {let! result = tryDivide 53let mapped = result *5return! multiplyIfEven 5 mapped}// result: None// int option let resultSome = option {let! result = tryDivide 63let mapped = result *5return! multiplyIfEven 5 mapped}// result: Some 50