upcase haskell fill-in-the-types