broken!
made random-sample.scm