A-M baby

Task/MD5/Haskell/md5.hs

@@ -0,0 +1,8 @@
+import Data.Digest.OpenSSL.MD5 (md5sum)
+import Data.ByteString (pack)
+import Data.Char (ord)
+
+main = do
+  let message = "The quick brown fox jumped over the lazy dog's back"
+      digest  = (md5sum . pack . map (fromIntegral . ord)) message
+  putStrLn digest