RosettaCodeData/Task/Variadic-function/Haskell/variadic-function-2.hs

{-# LANGUAGE GADTs #-}
...

instance a ~ () => PrintAllType (IO a) where
    process args = do mapM_ putStrLn args

...