type color = Red | Blue

let red   : color = Red<>
let blue  : color = Blue<>
let green : color = Green<>