(define (sleep-sort l)
  (for-each (lambda (item)
              (system (sprintf "(sleep ~A && echo ~A) &" item item)))
            l))

(sleep-sort '(1 2 5 9 8 5 3 9))