This code was written by Matthew Stein as a Fall 2015 Haskell student forum final project.
It is meant to generate a MIDI file that plays this Balkan song called "Adrenalina". (This is a different take on the same song, but we didn't even know what the song was called at the time.)
stack install
adrenalina music.midi
will create a MIDI file named music.midi.
Since most browsers cannot play MIDI files, we also include the MP3 version of the song in the repo.