Core utils written in Gambit
(copy-file
 (cadr (command-line))
 (car (cdr (cdr (command-line)))))