(define dfl
  (lambda (file)
    (cond ((file-exists? file)
           (system "sed 1d file >temp;mv temp file"))
          (print "no file"))))