[Haskell-cafe] haskell crypto is reaaaaaaaaaally slow

[Anatoly Yakovenko]

$ time ./md5sum ./md5sum
[105,252,52,138,187,192,216,17,225,123,185,3,124,101,86,132]

real    0m4.790s
user    0m3.688s
sys     0m0.492s

$ time md5sum ./md5sum
69fc348abbc0d811e17bb9037c655684  ./md5sum

real    0m0.023s
user    0m0.000s
sys     0m0.008s

this is my implementation using crypto
(http://www.haskell.org/crypto/).  Am I doing something wrong?

module Main where

import System
import qualified Data.Digest.MD5 as MD5
import qualified Data.ByteString as BS

main = do
   args <- getArgs
   dt <- BS.readFile $ head args
   putStrLn $ show $ MD5.hash . BS.unpack $ dt