fun n -> match n with
| 1 -> 0
| n -> n+1;;
if (2 = 3) or (3=3)
then "hello"
else "goodbye";;
2+3;;
((fun x y -> x + y) 2 3);;
((fun x y -> x * y) 2 3);;
let rec fixme1 x = match x with
| [] -> 1
| hd::tl ->
let foo = -4
and bar = 5
in foo + bar * (fixme1 tl);;
let rec fixme2 x = match x with
| [a] -> [a]
| a::b::tail -> b::a::(fixme2 tail)
| x -> x;;
let test n = match n with
| x -> x
| 0 -> 1;;