(define (shuffle ls)
  (let ((len (length ls)))
    (or (and (< len 2) ls)
        (let ((item (list-ref ls (random len))))
          (cons item (shuffle (remove (cut equal? <> item) ls)))))))

(define yodize (o string-join shuffle (cut string-split <> " ")))