Pasted

(define testdir  (lambda () (let ((fpath (string-append "/var/www/webdav/" (date->string(current-date) "~1"))))               (if (not (file-exists? fpath))                   (mkdir fpath)                    (display (string-append(fpath "Directory exists")))                   )               )))