在使用序列表达式时，如何处理F#中的异常？

try
    // 可能引发异常的代码
    let result = 10 / 0
with
    | :? System.DivideByZeroException as ex ->
        // 处理 DivideByZeroException 异常
        printfn "DivideByZeroException: %s" ex.Message
    | ex ->
        // 处理其他类型的异常
        printfn "Exception: %s" ex.Message

let divide x y =
    if y = 0 then
        None
    else
        Some (x / y)

let result = divide 10 0
match result with
| Some value ->
    // 处理有效值
    printfn "Result: %d" value
| None ->
    // 处理无效值
    printfn "Invalid input"

type Result<'TSuccess, 'TError> =
    | Success of 'TSuccess
    | Error of 'TError

let divide x y =
    if y = 0 then
        Error "DivideByZeroException"
    else
        Success (x / y)

let result = divide 10 0
match result with
| Success value ->
    // 处理成功的情况
    printfn "Result: %d" value
| Error error ->
    // 处理错误的情况
    printfn "Error: %s" error