[Haskell-cafe] Can I get 'forall (a :: k). Typeable a => Dict (Typeable k)'?