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

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