Euterpea - Requiem for a dream demo

#!/usr/bin/env runhaskell
import Euterpea

--Main
p = playDev 1

--Gamma
long = qn
octave = 4

--Choir
mainChoir = instrument ChoirAahs ((g 3 wn) :+: (g 3 wn) :+: (ef 3 wn) :+: (d 3 wn))
--Left Hand
leftHandFirst = (g 3 wn) :=: (g 2 wn)
leftHandSecond = (ef 3 wn) :=: (ef 2 wn)
leftHandThird = (d 3 wn) :=: (d 2 wn)
leftHand = leftHandFirst :+: leftHandFirst :+: leftHandSecond :+: leftHandThird

leftHandMid = leftHandFirst :+: leftHandSecond :+: (d 3 bn) :=: (d 2 bn)
leftHandFinisher = times(2)((g 3 wn) :=: (g 2 wn) :=: (d 3 wn)) :+: ((ef 3 wn) :=: (ef 2 wn) :=: (g 2 wn)) :+: ((gf 3 wn) :=: (d 2 wn) :=: (gf 2 wn))

--Right Hand
rightHandMain = (bf octave long) :+: (a octave long) :+: (g octave long) :+: (d octave long)
rightHandEnd = (c (octave+1) long) :+: (bf octave long) :+: (a octave long) :+: (bf octave long)

rightHandMid1 = (bf octave long) :+: (g octave long) :+: rest long :+: (times(2))(times(2)((bf octave en) :+: (g octave en)) :+: (g octave en) :+: rest dqn ) :+: times(5)((bf octave en) :+: (g octave en))
rightHandMid2 = (bf octave en) :+: (a octave en) :+: (a octave en) :+: rest dqn :+: (times(2))(times(2)((bf octave en) :+: (a octave en)) :+: (a octave en) :+: rest dqn ) :+: times(5)((bf octave en) :+: (a octave en))

rightHandFinisher = (bf octave long) :+: (a octave long) :+: (g octave long) :+: times(2)(times(3)(bf octave en) :+: times(3)(a octave en) :+: (g octave long)) :+: times(3)(g octave en) :+: times(4)(a octave en) :+: times(3)(bf octave en)
--Parts
intro = leftHandFirst :+: leftHandFirst :+: leftHandSecond :+: leftHandThird
firstPart = times(2)(instrument AcousticGrandPiano (leftHand :=: (times(3)(rightHandMain):+:rightHandEnd )))
secondPart = (rightHandMid1 :=: leftHandMid) :+: (rightHandMid2 :=: leftHandMid)
thirdPart = leftHandFinisher :=: rightHandFinisher
--Whole

main = p $ times(2)(intro) :+: firstPart :+: secondPart :+: times(2)(thirdPart :=: mainChoir)