(defn recent-mods "List the files in the current directory which have changed within the last hour." [] (filter (fn [fname] (< (- (os/time) 3600) (os/stat fname :modified))) (os/dir ".")))