let test status bookingchanged =

    match status, bookingchanged with

    | 5, 0 | 5, 1 -> "storno"

    | 0, 1 | 1, 1 -> "bookingchanged"

    | 0, 0 -> "bookingsuedtirol new"

    | 1, 0 -> "easychannel new"

    | _ -> "invalid state"

​

printfn "%s" <| test 5 1

printfn "%s" <| test 5 0

printfn "%s" <| test 5 2 // invalid

printfn "%s" <| test 0 1

printfn "%s" <| test 1 1

printfn "%s" <| test 2 1 // invalid

printfn "%s" <| test 0 0

printfn "%s" <| test 1 0

printfn "%s" <| test 2 0 // invalid

printfn "%s" <| test 1 2 // invalid

​