Haskell: for when your test base exceeds your code base.