Code from my demo of the Machines library at the Boulder Haskell meetup