: last-modified ( path -- path )
    dup
    [
        dup [ file-info modified>> ] map zip
    ] with-directory-files
    sort-values last first "/" prepend append ;