mltype t = int;; type x = X of int;; type 'a option = None | Some of 'a;; type 'a pt = Point of 'a * 'a;;
'
hstype T = Integer data x = X int data Maybe a = Nothing | Just a data Pt a = Point a a