A Drum Machine DSL for Haskell