import Data.Digest.Pure.MD5 import qualified Data.ByteString.Lazy as B import System.Environment main = do fname:_ <- getArgs B.readFile fname >>= print . md5