ninegrid

type RGB =
  | Red   of byte
  | Green of byte
  | Blue  of byte

let (|TheRed|_|) = function
  | Red x -> Some x
  | _     -> None

let xs = [Red 42uy; Green 0uy; Blue 0uy]