Utils.Compare
Convenience function for comparison
Returns a variant that can easily be matched against
type comparison =
| Gt
| Lt
| Eq
val cmp : 'a -> 'a -> comparison