Euterpea demo. Use this to verify your install is working. To install Euterpea under OS X, see: https://jeremywsherman.com/blog/2014/02/09/installing-and-using-euterpea-under-os-x-10-dot-9/

demo.hs

import Euterpea.Music.Note.Music
import Euterpea.IO.MIDI.ToMidi

-- Writes |test.mid| in the current directory.
main = test chord
    where chord = foldl1 (:=:) $ map (note 1.0) pitches
          pitches = [(Fs, o), (As, o), (Cs, o + 1), (Fs, o + 1)]
          o = 6::Int