(setq *random-state* (make-random-state t))

(defvar *files*
 '(
   ;;screwtape
   "gopher://sdf.org/s/users/screwtape/music/likesbr.mp3"
"gopher://sdf.org/s/users/screwtape/music/nl-mr-circle.mp3"

   ;;ldbeth
  "gopher://sdf.org/s/users/ldbeth/samfree/13.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/eem.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/factotum.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/gk.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbrdec3rd.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbrnov19th.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbrnov5th.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbroct1st.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbroct22nd.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/sbroct8th.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/yokan.mp3"
"gopher://sdf.org/s/users/ldbeth/samfree/yokanpiano.mp3"

   ;;ffog
   "gopher://sdf.org/s/users/ffog/synth/eas1.mp3"
"gopher://sdf.org/s/users/ffog/synth/epchao.mp3"
"gopher://sdf.org/s/users/ffog/synth/lesp.mp3"
"gopher://sdf.org/s/users/ffog/synth/rj5.mp3"
"gopher://sdf.org/s/users/ffog/synth/to1.mp3"
"gopher://sdf.org/s/users/ffog/synth/trs80randobeeps.mp3"


;;depingus
   "gopher://sdf.org/s/users/depingus/music/2022-04-28_PO-20_untitled-002_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-04-29_PO-20_untitled-003a_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-04-30_PO-20_untitled-001_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-07-21_Generic_Acid_Tencho_One_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-07-22_Not_Avicii_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-07-24_Sweeet_Juno_Pads_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-09-27_Before_the_Lights_Go_Out_002_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-10-08_A_Lament_for_the_Hydra_PREVIEW_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-10-22_Ho_Ho_Ho_Now_I_Have_a_Drumbrute_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-10-28_Happy_Hour_Heavy_Acid_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-08_We-Are-The-Handmaids_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-12_Dinglehopping_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-18_Wee_Ooo_PREVIEW_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-19_Turkey_Genocide_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-20_Fat_Dirty_Bottom_PREVIEW_192.mp3"
"gopher://sdf.org/s/users/depingus/music/2022-11-20_Fly_Turkey_Fly_192.mp3"))

(handler-case

(let ((idx (random (length *files*))))
 (format t "~a~%" (nth idx *files*))
 (force-output t)
 (Quit))

(t () (quit)))