fun : [`a] `a -> `a
      id (x : `a) = x

let main : int = id<int> (37)