1 2 3 4 5 6 7 8 9 10 11 12
-- Data types with no constructors module ShouldCompile where data S data T a f :: [T a] -> Int f xs = length xs