type StringList = StringList of string list
let sl = StringList [ "Hello, "; "World" ]
let length = List.length sl

This expression was expected to have type 'a list but here has type StringList