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

: last-modified ( path -- path )
    [ modification-times sort-values last first ] keep swap append-path ;