{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import System.Environment

import Lib

main :: IO ()
main = getArgs >>= return . head >>= getFileNames >>= putStrLn . show