(delete-file (cadr (command-line)))

(display (current-directory))
(newline)

(create-directory (cadr (command-line)))

(for-each
 (lambda (f)
   (display f)
   (newline))
 (directory-files))

(copy-file
 (cadr (command-line))
 (car (cdr (cdr (command-line)))))