A toy step sequencer in haskell (old)