#!/usr/bin/scsh -s
!#

(run (mpc clear))

(for-each (lambda (album)
            (run (mpc findadd album ,album)))
          (run/strings (pipe (mpc list album)
                             (shuf))))