main :: IO ()
main = do
  testData <- B.readFile "testData.bin"
  let testHash' = B.unpack $ encode ((hash' testData) :: MD4)
  if testHash' == testHash
    then exitSuccess
    else do
      print testHash'
      exitFailure
main :: IO ()
main = do
  testData <- B.readFile "testData.bin"
  let testHash' = B.unpack $ encode ((hash' testData) :: MD4)
  if testHash' == testHash
    then exitSuccess
    else do
      print testHash'
      exitFailure
main = do
  testData <- B.readFile "testData.bin"
  let testHash' = B.unpack $ encode ((hash' testData) :: MD4)
  if testHash' == testHash
    then exitSuccess
    else do
      print testHash'
      exitFailure