-- if Nina was a punk
-- TODO trois couplets: Husband - ??? - All of your life
do
resetCycles
setcps (80/60/4)
d1 -- grosse caisse / caisse claire poum tchak
  $ fix (# s "[bd,808bd]") (s "k")
  $ fix (
    whenmod 16 12 (fast "2 [4!3 8]")
    . (# s "[snare:2,snare:49]")
    . (|- note 2)
    . (|* gain "<0!4 1!60>")
  ) (s "s")
  $ s "k s k s"
  # gain 0.9
d2 -- charley double croche
  $ mask "<f!4 [t f]!3 t!20>"
  $ s "[hh,h2ogmcy:1]*[16 <16!3 32>]"
  # release 0.7
  # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
  # pan (slow 16 $ range 0.35 0.65 sine)
  # gain "<0.9!8 0.8!24>"
d3
  -- $ superimpose ((|* speed 2) . (# cut 31)) -- Chipmunk
  $ whenmod 64 32 (
    sometimesBy "0 <0!4 1 1 0 1>" ((# delay 0.75) . (# delayfb "<0 0 0 0.75>") . (# delaytime "h"))
    . slice 16 "<[14 15] [14 15] [12 13] [14 15]>"
  )
  $ someCyclesBy "<1!32 0!32>" (
    slice 8 (run "<8!4 4 4 8 4 2 2 8 2 1!4 1!48>"))
  $ whenmod 16 12 (# hpf 5000)
  $ "nina/4"
  # pan 0.4
  # gain 1.25
  # cut 3
d4
  $ mask "<f!8 t!56>"
  $ someCyclesBy "<1!4 0!4 1!6 0!2>" (
    (# lpf 1000)
    . (|* gain "<1!3 1.15 0!4 1!4 1.1 1.15 0!2>") -- Fade out up
  )
  $ superimpose (
    (# crush (slow 8 $ range 2.5 8 sine))
    . (# cut 41)
    . (|* gain 0.85)
  )
  $ slice 2 "<0 0 1 1>"
  $ "punk" -- FIXME speed decalage swing seconde mesure
  # pan 0.8
  # gain 0.8
  # cut 4

-- TODO: Breakbeat-a-nina
do
setcps (80/60/4)
d1 $ "k . k(<1 3 1 5>,8)" # "reverbkick" # gain 0.85
d2 $ slice 8 (stack [
  "0 . 1(5,8)"
  ]) "breaks165:2" # gain 1.25
d10
  -- $ g
  $ whenmod 8 4 (scramble "<2 2 4 4>")
  $ slice 8 (run 4)
  $ "nina/4"
  # pan 0.4
  # gain 1.2
  # cut 3