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