diff --git a/looptober-32.hs b/looptober-32.hs
new file mode 100644
index 0000000..7109739
--- /dev/null
+++ b/looptober-32.hs
@@ -0,0 +1,6 @@
+do
+  d1 $ slice 4 "<1*2 1> [2|2|2|3]" $ s "cbow:4" # speed "-1" # up "es"
+  d2 $ every 2 ( superimpose (echo 3 (1/8) 0.9 . (# up "24") . (# amp 0.1) . (# distort 0.8)) ) $ sometimes (# speed "-1") $ slice 4 "<1 1*3> 2*2" $ s "cbow:4" # up "es4" # room 0.1 # sz 0.2
+  d3 $ n "d" # s "supernoise" # voice 1 # ampbus 1 (range 0.05 0.1 $ degradeBy (1/9) $ segment 256 $ slow 6 sine)
+  d4 $ (range (1/2) 0 $ perlin) ~> s "cpluck:6" # krush 0.9
+  d5 $ s "akailinnbd(2,3,<0 1 2>)"