Puts macro - a macro to print things and accept variadic arguments

puts.rkt

(require (for-syntax racket/base))

(provide puts)

(define-syntax (puts stx)
  (define datum (syntax->datum stx))
  (define args (cdr datum))
  (datum->syntax stx
    (if (empty? args)
        '(displayln "")
        (if (= 1 (length args))
            (cons 'displayln args)
            (cons 'displayln
                  (cons (cons 'format args) '()))))))

; test output
(module+ main
  (puts)
  (puts "Hello")
  (puts "Hello ~a" "Steven"))

; end