let intEqual (x : int) (y : int) = x = y
let genericEqual x y : 'a = x = y