1 2 3 4 5 6 7 8 9
con func a b = a -> b signature S = sig con funcy a b = a -> b end structure M : S = struct con funcy = func end