setcps 0.45 d1 $ sometimesBy "0 0.5" (# n 0) $ s "bsperc(<3 [3|6] 12>,6)" # n "[5|6]" # gain 0.9 d2 $ sometimes (ply 2) $ whenmod 8 7 (# gain 0) $ s "[dr(<6!3 12>,4),[~ . ~ ~ ~ 808oh]]" # gain 0.7 d4 $ off 0.5 degrade $ off 0.25 degrade $ often (superimpose (off 0.125 (|+ note "12") )) $ slow 4 $ note ( "<7!3 0> . <5 12> 0? ~ 0?" - 12 ) |+ note "<c'maj c'min d'min c'maj>" # s "superpiano" # velocity 0.45 d5 $ slow 2 $ note ("<c3'maj>" + "0(5,8) <<4!3 8> <2 6>>*2" + (slow 4 $ "<0 12>") ) # s "superfork" # gain 0.7 # room 0.2