sig type t = int val compare : '-> '-> int end