d1
  $ n "[0,[~ 2*<1!3 2>]*2]" # "cpu2" # gain 1

once $ "dr"


setcps (110/60/4) -- James

once $ s "loop" -- writes one cycle to the loop buffer and uses the input port 0 and the sample number 0

do
let linput = pI "linput"
let lname = pS "lname"
d1 $ "dr*4" # gain 0.5
d2 $ "looper*4" # n "<0 1 2 3 4 5 6 7>" # cut 2
-- d2 $ "loop" # n "<0 1 2 3 4 5 6 7>" # cut 2

once
  $ n "5 6"
  # "lJames"
  # cut 4

once $ "looper" # lname "lEITS"

resetCycles

do -- Looper named loop
setcps (30/60/4) -- Slow sampling
let linput = pI "linput"
let lname = pS "lname"
d1
  $ s "looper" # n "<0 1 2 3 4 5 6 7>"
  # lname "lEITS"
d2 $ stut 4 0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.5

do
setcps (100/60/4)
d1 $ "k(3,8)" # "jazz" # gain 0.5
d2 $ "hh*8"
  # gain 0.45
  # room 0.4
  # dry 0.99
d3
  $ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>"
  # s "lEITS"
  # cut 3
  # gain 1.3
  # pan 0.8

d1 $ "jazz*4" # gain 0.8

once
  $ "lEITS:1"
  # gain 1.2
  # cut 1

-- DRILL
do
setcps (120/60/4)
d1
  $ "k . k(<3!3 <1 5>>,8)"
  # "jazz" # gain 0.7
d2 $ mask "<f!4 t!12>"
  $ "~ snare" # gain 0.7
d2 $ "lDrill:3" -- aaAa
  # begin 0 # end 0.75
  # cut 3 -- Je deviens haineux

once $ "lDrill:5" # begin 0.05 # end 0.25
  # cut 3 -- Je deviens haineux

once
  $ "lDrill:1" 
  # gain 1.1 # cut 1

resetCycles

do -- Looper named loop
setcps (30/60/4) -- Slow sampling
let linput = pI "linput"
let lname = pS "lname"
d1
  $ s "looper" # n "<0 1 2 3 4 5 6 7>"
  # lname "lDrill"
d2 $ stut 4  0.5 "q" $ s "arpy" # n "<0 1 2 3 4 5 6 7>" # gain 0.75

do
setcps (100/60/4)
d1 $ "k(3,8)" # "jazz" # gain 0.5
d2 $ "hh*8"
  # gain 0.45
  # room 0.4
  # dry 0.99
d3
  -- $ n "<[1 1*[1|2] <1 6> 1?] [<1 1 3 3> <2!3 4>]>"
  $ n (run 8)
  # s "lDrill"
  # cut 3
  # gain 1.3
  # pan 0.8


do
d1
  $ often (slow 4) $ "loop*[4 [4|8|16]]"
  # gain 1.2 # cut 1
  # begin (perlin/4)