Recursive filesystem ls (ls -R) with MarkLogic

recursive-ls.xqy

xquery version "1.0-ml";

declare namespace dir="http://marklogic.com/xdmp/directory";

declare function local:recursive-file-ls($path, $last-modified as xs:dateTime?) {
  for $i in xdmp:filesystem-directory($path)/dir:entry
  let $child-path := $i//dir:pathname/text()
  let $type := $i//dir:type
  return 
    if ($type eq "directory") then local:recursive-file-ls($child-path, $last-modified)
    else if (fn:not(fn:empty($last-modified)) and $i//dir:last-modified ge $last-modified) then $child-path
    else if (fn:empty($last-modified)) then $child-path
    else ()
};

local:recursive-file-ls("/Users/username/tmp/", fn:current-dateTime() - xs:dayTimeDuration("P5D"))