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

(defvar *files*
  '(
    ;;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://gopher.club/s/users/ffog/synth/to1.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)))