Extra glitching on this one! This uses many of the glitch samples I created yesterday

Here’s the code:

do
  let randpan = (fast 4 $ pan (perlin))
  let break =  const $ st "<t*8 t*16 t*32 t*4 t*64 t*12 t*4 t*4 t*6>" $  n (fast 16 $ range 0 120 $ rand) # s "<g1 gtwo gtwo g1 gtwo db db rlaser monotron>" # begin 0.1 # sus 0.5 # cut 78 # randpan # speed (choose[0.25,0.5,0.5,0.5,(-1)])
  let verb = dry 0.8 # room 0.2 # size 0.6
  p "s"
    $ every 11 (within (0.25,0.5) (db 0.9))
    $ every 10 (within (0.25,0.75) (bite 16 "{0 4 5 2 3 6 6 6 0 0 0 0 0 4 2 4}%<8 4>"))
    $ every 9 (superimpose (# crush 7 ) . ( # hpf 200))
    -- $ every 21 (rev . stutWith 8 (1/32) (|* speed 0.8))
    $ every 5 (rev.stutWith 8 (1/32) (|* speed 0.9))
    $ sb 0.1 (# crush 6)
    $ every 17 (rev)
    $ every 19 (within (0.5,0.75) (break))
    $ every 13 (within (0.25,0.75) (break))
    $ every 10 (within (0.6,0.1) (break))
    $ whenmod 10 7 (  (# real (rand)) . (# gain 1.1))
    $ whenmod 14 12 (  (# imag (range 0 0.5 $ rand)) . (# gain 1.1))
    $ whenmod 40 37 (fast 0.66)
    $ whenmod 30 25 (fast 0.5 . (sb 0.67 (ply 2)))
    $ whenmod 45 43 (fast 0.4 . (sb 0.7 (rev . stut 8 0.2 (1/64))))
    $ whenmod 22 18 (#waveloss 0.9)
    $ stack [
     db "<1 1 1 0 1 1 0 0 0 1 1 1 0 1 0 1 1 0 0>/2" $ db 0.7 $ fast 4 $ st "t*4" $ s "gtwo" # n (fast 16 $ range 0 120 $ rand) # begin 0.1 # cut 66 # sustain 0.5 # speed 0.5,
    st "[t*4]" $ cut 78 # gain 0,
    -- (0.75<~) $ sb 0.05 (stut 8 0.3 (1/32)) $ st "t(7,16)" $ s "kicks:95" # cut 67 # o 1,
    (0.75<~) $ sb 0.3 (stut 8 0.3 (1/32)) $ st "<t(3,8) t(3,8) t(3,8), t(3,8) [t*2 ~ t [~~~t]]>" $ s "kicks:95" # cut 67 # o 1,
     sb 0 (rev . stut 8 0.2 (1/32)) $ st "[~~~~ ~~~~ t~~~ ~~~<~t>]" $ s "sd:19"  # cut 98 # shape 0.5 # speed 1.2 # pan 0.7,
     db "<1 1 1 0 0 1 0 0 1 1 0 0>/10" $ st "[~ ~ t ~]" $ s "cp:2" # gain 0.9 # pan 0.3,
     (19 ~>) $ db "<0 0 0 1 0 1 0 0 0 1 1 1 0 0 >/4" $ st "<t*16 t*8 t*16 t*12>" $ s "<g1:7 g1:20 g1:14 >/8" # cut 100 # begin 0.1,
     (10~>) $ db 1 $ sb 0.5 (fast 0.5) $ st "t*8" $ n (range 0 100 $ rand) # s "gtwo" # sus 1 # release 1 # gain 1 # cut 2 # speed 0.78 # begin 0.1
                ] -- # dry 0.8 # room (fast 6 $ range 0 0.7 $ perlin) # size (fast 4 $ range 0 0.7 $ rand)