如何使用 JSONata 将嵌套对象展平为单深度对象？

我是 JSONata 新手，在创建展平函数时遇到一些麻烦。

我想把这个输入：

{
        "user": {
        "key_value_map": {
            "CreatedDate": "123424",
            "Department": {
                "Name": "XYZ"
            }
        }
    }
}

进入这个：

{
    "user.key_value_map.CreatedDate": "123424",
    "user.key_value_map.Department.Name": "XYZ"
}

谁能帮我？在这里和谷歌上搜索，找不到能引导我走向正确方向的东西。

Thanks

(
    $fn := function($o, $prefix) { 
        $each($o, function($v, $k) {(
            $name := $join([$prefix,$k], '.');
            $type($v) = 'object' ? $fn($v, $name): {
                $name: $v
            }
        )}) ~> $merge()
    };
    $fn($)
)

https://try.jsonata.org/WCUxC-r4_ https://try.jsonata.org/WCUxC-r4_