module ShouldCompile where
import Data.List (nub) -- all unused
import Data.Char (ord, chr)  -- some unused

x = chr 42