(define (print . args)
  (display (apply string-append args))
  (newline))

(define (command-line-arguments)
  (cdr (command-line)))