main :: IO ()
main = do
  file <- decodeString . head <$> getArgs
  bracket mkTempDir removeTree (process file)
main :: IO ()
main = do
  file <- decodeString . head <$> getArgs
  bracket mkTempDir removeTree (process file)
main = do
  file <- decodeString . head <$> getArgs
  bracket mkTempDir removeTree (process file)