d2 $ whenmod 8 6 (# gain 0) $ every' 16 12 (# speed 0.75) $ every' 16 13 (# speed 0.5) $ every' 8 6 rev $ s "<arpy*8 ~>" # n (run 8) # gain 0.8