delete first line of a file added by sepuku on Mon Apr 30 16:08:38 2012
(define dfl
(lambda (file)
(cond ((file-exists? file)
(system "sed 1d file >temp;mv temp file"))
(print "no file"))))(define dfl
(lambda (file)
(cond ((file-exists? file)
(system "sed 1d file >temp;mv temp file"))
(print "no file"))))