Pattern matching query

PatternMatchingQuery.fsx

query {
    for order in db.Orders do
    let status =
        match order.Status with
        | 0 | 1 -> "Cancelled/Returned"
        | _ -> "Valid"
    where (status = "Valid")
    select order
}