anchor.diff:  
   (defun make-conversion (name tv)
     (format t "Downsampling ~A with sox…~%" name)
  -  (alet (+ "obj/" name "_downsampled_" (downcase (symbol-name tv)) ".wav")
  +  (alet (+ "obj/" name ".downsampled." (downcase (symbol-name tv)) ".wav")
       (sb-ext:run-program "/usr/bin/sox"
  -                        `(,(+ "obj/" name "_filtered.wav")
  +                        `(,(+ "obj/" name ".filtered.wav")
                             "-c" "1"
                             "-b" "16"
                             "-r" ,(princ (/ (pwm-pulse-rate tv)
  
positive.code:   (format t "Filtering and companding ~A with sox…~%" name)
    (sb-ext:run-program "/usr/bin/sox"
                        `(,(+ "obj/" name ".wav")
                          ,(+ "obj/" name "_filtered.wav")
                          "bass" ,bass
                          "lowpass" ,(princ (half (pwm-pulse-rate tv)) nil)
                          "compand" "0.3,1" "6:-70,-60,-20" "-1" "-90" "0.2"
  
negative.code:                  '("src/audio-player-irq.asm")
                   '("src/audio-player-noirq.asm")))
            ,(+ "src/text_" name ".asm"))
          (+ "obj/" name "." tv ".prg.vice.txt")))
  
  (defun padding (x n obj)
    (maptimes [identity obj] (- n (length x))))
  