yayforsugar.fs

module james


let rec fib = function
  | 0 -> 0
  | 1 -> 1
  | n -> fib(n - 1) + fib(n - 2)

type Thing =
  | Something = 1
  | Otherthing = 2

let trans x = match x with
              | Thing.Something -> "hello"
              | Thing.Otherthing -> "goodbye"

let v = trans Thing.Something

printf "%s" v