: each-directory-file ( pathname quot -- )
    '[ [ @ ] each ] with-directory-files ; inline

: directory-files>lower ( pathname -- )
    [ dup >lower move-file ] each-directory-file ;

: directory-files>upper ( pathname -- )
    [ dup >upper move-file ] each-directory-file ;