[Haskell] any implementation of "How to write a financial contract" ?