Code to accompany the Boston Haskell Meetup talk on STM