anchor.diff:    (format t "Filtering and companding ~A with sox…~%" name)
     (sb-ext:run-program "/usr/bin/sox"
                         `(,(+ "obj/" name ".wav")
  -                        ,(+ "obj/" name "_filtered.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"
  
positive.code: 
  (defun make-conversion (name tv)
    (format t "Downsampling ~A with sox…~%" name)
    (alet (+ "obj/" name "_downsampled_" (downcase (symbol-name tv)) ".wav")
      (sb-ext:run-program "/usr/bin/sox"
                          `(,(+ "obj/" name "_filtered.wav")
                            "-c" "1"
                            "-b" "16"
                            "-r" ,(princ (/ (pwm-pulse-rate tv)
  
negative.code:   (make-vice-commands cmds "break .stop"))
  
  (defun make-audio-player-prg (name tv)
    (make (+ "obj/" name "." tv ".prg")
          `("bender/vic-20/basic-loader.asm"
            "bender/vic-20/vic.asm"
            "src/main.asm"
  