import System.Environment (getArgs)
import Control.Monad
import qualified Data.ByteString as B
main :: IO ()
main = do args  <- getArgs
          when (null args)  $ B.putStr =<< B.getContents
          forM_ args        $ B.putStr <=< B.readFile