#!/usr/bin/gosh

(sys-srandom (sys-time))

(call-with-input-file
 (sys-normalize-pathname "~/doc/t-shirts" :expand #t)
 (lambda (port)
   (let* ((shirts (port->string-list port))
          (victim (modulo (sys-random) (length shirts))))
     (print (list-ref shirts victim)))))