-- | Write to a file or to STDOUT if no file is specified.
output :: Maybe FilePath -> String -> IO ()
output (Just f) = writeFile f
output :: Maybe FilePath -> String -> IO ()
output (Just f) = writeFile f
output (Just f) = writeFile f