type t = T

let t : t = match (T<>) { T<> -> T<> }