haskell_code