: modification-times ( path -- assoc ) [ [ dup file-info modified>> ] { } map>assoc ] with-directory-files ; : last-modified ( path -- path ) [ modification-times sort-values last first ] keep swap append-path ;