(use scheme.list)

(define-syntax readm
  (syntax-rules (sym str list vec)
    [(_ list n t ...)
     (unfold (pa$ = n) (^_ (readm t ...)) (pa$ + 1) 0)]
    [(_ vec n t ...)
     (vector-tabulate n (^_ (readm t ...)))]
    [(_ sym)
     (read)]
    [(_ str)
     (symbol->string (read))]))

(define (main args)
  (let1 n (read)
        (do [(i n (- i 1))]
            [(zero? i)]
          (let* ([k (read)]
                 [l (readm list k sym)])
            (print (string-join (map number->string (sort l >)) " ")))))
  0)