declare namespace output = "http://www.w3.org/2010/xslt-xquery-serialization";

declare option jsoniq-version "0.4.42";
declare option output:method "json";

declare variable $d1 := xs:date(.('d1'));
declare variable $d2 := xs:date("1900-03-01");
let $d3 := xs:date("2000-02-28")  let $d4 := xs:date(.('d4'))

return [
  for $i in 0 to days-from-duration($d2 - $d1)
    return  string($d1 + $i * xs:dayTimeDuration('P1D'))
,
  for $i in 0 to days-from-duration($d4 - $d3)
    return  string($d3 + $i * xs:dayTimeDuration('P1D'))
]