let result =
match true with
|true when System.DateTime.Now.Second % 2 = 0 -> "heads"
|_ -> "tails"
;;
printfn "%A" result