problem seqP code

track1.tidal

setcps 0.53

do
  let p1 = lpfq (range 50 6000 (slow 4 sine)) 0.3
  let p2 = lpfq (range 50 6000 (slow 4 sine)) 0.6
  let p3 = lpfq (range 50 6000 (slow 3 saw)) (range 0.3 0.7 (slow 3.5 saw))
  let shift = (|+ up "<0!4 -3!4>")
  let d10_0 = si (hurry "t")
              $ inevery 8 7 (jux press)
              $ s "wash*8"
              # n (run 8)
              # revb
              # gain 0.9
  let d10_1 = onoff 7 1
              $ si (hurry "<t h>")
              $ inevery 8 7 (jux press)
              $ s "wash*8"
              # n (run 8)
              # revb
              #gain 0.9
  let d11_0  = onoff 7 1
              $ si (hurry "<t h>")
              $ inevery 8 7 (jux press)
              $ s "wash*8"
              # n (run 8)
              # revb
              #gain 0.9
  let d13_0 =  onoff 7 1
              $ si (hurry "<t>")
              $ ply "{1!4 4 1}%4"
              $ degradeBy 0.7
              $ inevery 8 7 (jux press)
              $ s "wash*8"
              # n (run 8)
              # revb
  let d20_1 = si (hurry "<h>")
              $ ply "{1!4 2}%4"
              $ k "t(<7 5>,16)"
              $ s "van"
              # nCountTo "j" 8
              # leg 0.8
  let d21_0 = onoff 3 1
              $ si (hurry "<h>")
              $ ply "{1!4 2}%4"
              $ k "t(<7 5>,16)"
              $ s "van"
              # nCountTo "j" 8
              # leg 0.8
  let d21_2 = onoff 3 1
              $ si (hurry "<t>")
              $ ply "{1!4 2}%4"
              $ k "t(<7 11>,16)"
              $ s "van"
              # nCountTo "j" 8
              # leg 0.8
  let d23_0 = onoff 3 1
              $ si (hurry "<t>")
              $ ply "{1!4 4}%4"
              $ degradeBy 0.6
              $ k "t(<7 11>,16)"
              $ s "van"
              # nCountTo "j" 8
              # leg 0.8
  let d31_0 = shift
              $ jux (hurry "2")
              $ every 3 rev
              $  k "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "cbpad:2" # leg 1
              # revb
  let d31_1 = shift
              -- $ k (every 2 inv "1101 1101")
              $ inevery 8 7 (juxBy 0.2 (hurry "h"))
              $ jux (hurry "2")
              $ while "1101 1101" (|+ up "[-12]")
              $ every 3 rev
              $  k "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "cbpad:2" # leg 1
              # coarse (4 * (segment 16 (slow 4 saw)))
              # revb
  let d31_2 = shift
              $ k (every 2 inv "1101 1011")
              $ inevery 8 7 (juxBy 0.2 (hurry "h"))
              $ jux (hurry "2")
              $ while "1101 1101" (|+ up "[-12]")
              $ every 3 rev
              $  k "1<0 [11]>01 110<0 [11]>"
              $ striate' 16 (range (1/64) (1/8) (slow 3 saw))
              $ s "cbpad:2" # leg 1
              # coarse (4 * (segment 16 (slow 4 saw)))
              # revb
  d1 $ qtrigger 1 $ seqP [
    (0,4,  d10_0),
    (4,8,  d10_1),
    (8,24, d11_0),
    (24,32, d11_0),
    (32,40, d11_0 # p1# gain 0.85),
    (40,48, d11_0 # p2 # gain 0.85),
    (48,64, d13_0 # p2 # gain 0.85)
   ]
  d2 $ qtrigger 2 $ seqP [
    (4, 8, d20_1),
    (8,16, d21_0),
    (24,32, d21_0),
    (32,40, d21_0 # p1# gain 0.83),
    (40,48, d21_2 # p2# gain 0.83),
    (48,64, d23_0 # p2 # gain 0.83)
   ]
  d3 $ qtrigger 3 $ seqP [
    (8,16, d31_0),
    (16,24, (|+ up "5") $ while "0<0 1> <1 0>1" (# silence) d31_0 ),
    (24,32, d31_1),
    (32,40,(|+ up "5") $  d31_1),
    (40,48, d31_2),
    (48,56, (|+ up "5") $  d31_2),
    (56,64, d31_2),
    (64,72, (|+ up "5") $ while "0000" (# silence) d31_2)
   ]