haskell_test_code