(not at the head of any monitored branch or PR)
2026-04-13 14:42.21: New job: test m_tree.0.1 with dune.3.22.2, using opam dev
                              from https://github.com/ocaml/opam-repository.git#refs/pull/29704/head (3e0c395e7b1393a792367f8edca3654dac71e6fd)
                              on debian-13-ocaml-5.4/amd64

To reproduce locally:

cd $(mktemp -d)
git clone --recursive "https://github.com/ocaml/opam-repository.git" && cd "opam-repository" && git fetch origin "refs/pull/29704/head" && git reset --hard 3e0c395e
git fetch origin master
git merge --no-edit ba4685aeec7b28fde6af30c7b83004704c68c86a
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-13-ocaml-5.4@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4
USER 1000:1000
WORKDIR /home/opam
RUN sudo ln -f /usr/bin/opam-dev /usr/bin/opam
RUN opam init --reinit -ni
RUN opam option solver=builtin-0install && opam config report
ENV OPAMDOWNLOADJOBS="1"
ENV OPAMERRLOGLEN="0"
ENV OPAMPRECISETRACKING="1"
ENV CI="true"
ENV OPAM_REPO_CI="true"
RUN rm -rf opam-repository/
COPY --chown=1000:1000 . opam-repository/
RUN opam repository set-url --strict default opam-repository/
RUN opam update --depexts || true
RUN opam pin add -k version -yn dune.3.22.2 3.22.2
RUN opam reinstall dune.3.22.2; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    partial_fails=""; \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    test "$pkg" != 'dune.3.22.2' && partial_fails="$partial_fails $pkg"; \
    done; \
    test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
    exit 1
RUN opam reinstall m_tree.0.1; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    partial_fails=""; \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    test "$pkg" != 'm_tree.0.1' && partial_fails="$partial_fails $pkg"; \
    done; \
    test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
    exit 1
RUN (opam reinstall --with-test m_tree.0.1) || true
RUN opam reinstall --with-test --verbose m_tree.0.1; \
    res=$?; \
    test "$res" != 31 && exit "$res"; \
    export OPAMCLI=2.0; \
    build_dir=$(opam var prefix)/.opam-switch/build; \
    failed=$(ls "$build_dir"); \
    partial_fails=""; \
    for pkg in $failed; do \
    if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then \
    echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
    fi; \
    test "$pkg" != 'm_tree.0.1' && partial_fails="$partial_fails $pkg"; \
    done; \
    test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
    exit 1

END-OF-DOCKERFILE
docker build -f ../Dockerfile .

2026-04-13 14:42.21: Using cache hint "ocaml/opam:debian-13-ocaml-5.4@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4-dune.3.22.2-m_tree.0.1-3e0c395e7b1393a792367f8edca3654dac71e6fd"
2026-04-13 14:42.21: Using OBuilder spec:
((from ocaml/opam:debian-13-ocaml-5.4@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4)
 (user (uid 1000) (gid 1000))
 (workdir /home/opam)
 (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
 (run (network host)
      (shell "opam init --reinit --config .opamrc-sandbox -ni"))
 (run (shell "opam option solver=builtin-0install && opam config report"))
 (env OPAMDOWNLOADJOBS 1)
 (env OPAMERRLOGLEN 0)
 (env OPAMPRECISETRACKING 1)
 (env CI true)
 (env OPAM_REPO_CI true)
 (run (shell "rm -rf opam-repository/"))
 (copy (src .) (dst opam-repository/))
 (run (shell "opam repository set-url --strict default opam-repository/"))
 (run (network host)
      (shell "opam update --depexts || true"))
 (run (shell "opam pin add -k version -yn dune.3.22.2 3.22.2"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell  "opam reinstall dune.3.22.2;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        partial_fails=\"\";\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n          test \"$pkg\" != 'dune.3.22.2' && partial_fails=\"$partial_fails $pkg\";\
             \n        done;\
             \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
             \n        exit 1"))
 (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
      (network host)
      (shell  "opam reinstall m_tree.0.1;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        partial_fails=\"\";\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n          test \"$pkg\" != 'm_tree.0.1' && partial_fails=\"$partial_fails $pkg\";\
             \n        done;\
             \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
             \n        exit 1"))
 (run (network host)
      (shell "(opam reinstall --with-test m_tree.0.1) || true"))
 (run (shell  "opam reinstall --with-test --verbose m_tree.0.1;\
             \n        res=$?;\
             \n        test \"$res\" != 31 && exit \"$res\";\
             \n        export OPAMCLI=2.0;\
             \n        build_dir=$(opam var prefix)/.opam-switch/build;\
             \n        failed=$(ls \"$build_dir\");\
             \n        partial_fails=\"\";\
             \n        for pkg in $failed; do\
             \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
             \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
             \n          fi;\
             \n          test \"$pkg\" != 'm_tree.0.1' && partial_fails=\"$partial_fails $pkg\";\
             \n        done;\
             \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
             \n        exit 1"))
)

2026-04-13 14:42.21: Waiting for resource in pool OCluster
2026-04-13 15:23.50: Waiting for worker…
2026-04-13 15:29.54: Got resource from pool OCluster
Building on clete.caelum.ci.dev
All commits already cached
Updating files:  74% (13893/18721)
Updating files:  75% (14041/18721)
Updating files:  76% (14228/18721)
Updating files:  77% (14416/18721)
Updating files:  78% (14603/18721)
Updating files:  79% (14790/18721)
Updating files:  80% (14977/18721)
Updating files:  81% (15165/18721)
Updating files:  82% (15352/18721)
Updating files:  83% (15539/18721)
Updating files:  84% (15726/18721)
Updating files:  85% (15913/18721)
Updating files:  86% (16101/18721)
Updating files:  87% (16288/18721)
Updating files:  88% (16475/18721)
Updating files:  89% (16662/18721)
Updating files:  90% (16849/18721)
Updating files:  91% (17037/18721)
Updating files:  92% (17224/18721)
Updating files:  93% (17411/18721)
Updating files:  94% (17598/18721)
Updating files:  95% (17785/18721)
Updating files:  96% (17973/18721)
Updating files:  97% (18160/18721)
Updating files:  98% (18347/18721)
Updating files:  99% (18534/18721)
Updating files: 100% (18721/18721)
Updating files: 100% (18721/18721), done.
HEAD is now at ba4685aeec Merge pull request #29653 from yakobowski/camlidl
Merge made by the 'ort' strategy.
 packages/chrome-trace/chrome-trace.3.22.2/opam     | 39 +++++++++++
 .../dune-action-plugin.3.22.2/opam                 | 52 +++++++++++++++
 .../dune-action-trace.3.22.2/opam                  | 39 +++++++++++
 .../dune-build-info/dune-build-info.3.22.2/opam    | 45 +++++++++++++
 .../dune-configurator.3.22.2/opam                  | 49 ++++++++++++++
 packages/dune-glob/dune-glob.3.22.2/opam           | 42 ++++++++++++
 .../dune-private-libs.3.22.2/opam                  | 50 +++++++++++++++
 packages/dune-rpc-lwt/dune-rpc-lwt.3.22.2/opam     | 41 ++++++++++++
 packages/dune-rpc/dune-rpc.3.22.2/opam             | 44 +++++++++++++
 packages/dune-site/dune-site.3.22.2/opam           | 37 +++++++++++
 packages/dune/dune.3.22.2/opam                     | 75 ++++++++++++++++++++++
 packages/dyn/dyn.3.22.2/opam                       | 40 ++++++++++++
 packages/fs-io/fs-io.3.22.2/opam                   | 39 +++++++++++
 packages/ocamlc-loc/ocamlc-loc.3.22.2/opam         | 43 +++++++++++++
 packages/ordering/ordering.3.22.2/opam             | 38 +++++++++++
 packages/stdune/stdune.3.22.2/opam                 | 46 +++++++++++++
 packages/top-closure/top-closure.3.22.2/opam       | 38 +++++++++++
 packages/xdg/xdg.3.22.2/opam                       | 39 +++++++++++
 18 files changed, 796 insertions(+)
 create mode 100644 packages/chrome-trace/chrome-trace.3.22.2/opam
 create mode 100644 packages/dune-action-plugin/dune-action-plugin.3.22.2/opam
 create mode 100644 packages/dune-action-trace/dune-action-trace.3.22.2/opam
 create mode 100644 packages/dune-build-info/dune-build-info.3.22.2/opam
 create mode 100644 packages/dune-configurator/dune-configurator.3.22.2/opam
 create mode 100644 packages/dune-glob/dune-glob.3.22.2/opam
 create mode 100644 packages/dune-private-libs/dune-private-libs.3.22.2/opam
 create mode 100644 packages/dune-rpc-lwt/dune-rpc-lwt.3.22.2/opam
 create mode 100644 packages/dune-rpc/dune-rpc.3.22.2/opam
 create mode 100644 packages/dune-site/dune-site.3.22.2/opam
 create mode 100644 packages/dune/dune.3.22.2/opam
 create mode 100644 packages/dyn/dyn.3.22.2/opam
 create mode 100644 packages/fs-io/fs-io.3.22.2/opam
 create mode 100644 packages/ocamlc-loc/ocamlc-loc.3.22.2/opam
 create mode 100644 packages/ordering/ordering.3.22.2/opam
 create mode 100644 packages/stdune/stdune.3.22.2/opam
 create mode 100644 packages/top-closure/top-closure.3.22.2/opam
 create mode 100644 packages/xdg/xdg.3.22.2/opam

(from ocaml/opam:debian-13-ocaml-5.4@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4)
Unable to find image 'ocaml/opam:debian-13-ocaml-5.4@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4' locally
docker.io/ocaml/opam@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4: Pulling from ocaml/opam
8f6ad858d0a4: Already exists
9cb5e198c8cf: Pulling fs layer
2d346d36dcf2: Pulling fs layer
cdc35e289b8d: Pulling fs layer
aeb7244bb580: Pulling fs layer
fc1943254a0d: Pulling fs layer
84238c416f8e: Pulling fs layer
fbbfe75d3112: Pulling fs layer
221fdc5d9929: Pulling fs layer
1fec9149b52a: Pulling fs layer
9c6e52557f24: Pulling fs layer
aeb7244bb580: Waiting
8737f5036aae: Pulling fs layer
fc1943254a0d: Waiting
84238c416f8e: Waiting
d69c4074de14: Pulling fs layer
fbbfe75d3112: Waiting
1fec9149b52a: Waiting
8737f5036aae: Waiting
9c6e52557f24: Waiting
7237152a5f04: Pulling fs layer
fba4b414d8a0: Pulling fs layer
d69c4074de14: Waiting
7237152a5f04: Waiting
40d552afb3ef: Pulling fs layer
fba4b414d8a0: Waiting
077cc17dc8e4: Pulling fs layer
40d552afb3ef: Waiting
077cc17dc8e4: Waiting
169e1be36a55: Pulling fs layer
0a8a005097ab: Pulling fs layer
169e1be36a55: Waiting
caba3ec4b361: Pulling fs layer
0a8a005097ab: Waiting
6a364dc641f8: Pulling fs layer
4f4fb700ef54: Pulling fs layer
caba3ec4b361: Waiting
ab8052928cdc: Pulling fs layer
4f4fb700ef54: Waiting
6a364dc641f8: Waiting
f5717a28dd6a: Pulling fs layer
79233a9b9bed: Pulling fs layer
ab8052928cdc: Waiting
d832d53e7392: Pulling fs layer
f5717a28dd6a: Waiting
79233a9b9bed: Waiting
1872dad82243: Pulling fs layer
bfd849b08ba7: Pulling fs layer
d832d53e7392: Waiting
834a8024ef15: Pulling fs layer
98ccec79258b: Pulling fs layer
bfd849b08ba7: Waiting
834a8024ef15: Waiting
fb48f36a0542: Pulling fs layer
3688b13db8e7: Pulling fs layer
98ccec79258b: Waiting
a5c099f5f72c: Pulling fs layer
3688b13db8e7: Waiting
fb48f36a0542: Waiting
1ff1760de5b0: Pulling fs layer
a5c099f5f72c: Waiting
98eec6764aa5: Pulling fs layer
aa22ae69debd: Pulling fs layer
1ff1760de5b0: Waiting
98eec6764aa5: Waiting
12bfb7b962a2: Pulling fs layer
ec25ce9bb816: Pulling fs layer
beadd3cf7357: Pulling fs layer
aa22ae69debd: Waiting
ec25ce9bb816: Waiting
12bfb7b962a2: Waiting
d0d0c65a426d: Pulling fs layer
beadd3cf7357: Waiting
3574d8cdbcc5: Pulling fs layer
d0d0c65a426d: Waiting
b74552b4db71: Pulling fs layer
3574d8cdbcc5: Waiting
b74552b4db71: Waiting
27b1c047e252: Pulling fs layer
26897dca61f0: Pulling fs layer
27b1c047e252: Waiting
8cb12431740e: Pulling fs layer
0dec740ecd51: Pulling fs layer
26897dca61f0: Waiting
79518206bd07: Pulling fs layer
8cb12431740e: Waiting
0dec740ecd51: Waiting
79518206bd07: Waiting
9cb5e198c8cf: Download complete
9cb5e198c8cf: Pull complete
2d346d36dcf2: Download complete
2d346d36dcf2: Pull complete
aeb7244bb580: Verifying Checksum
aeb7244bb580: Download complete
cdc35e289b8d: Verifying Checksum
cdc35e289b8d: Download complete
84238c416f8e: Verifying Checksum
84238c416f8e: Download complete
fbbfe75d3112: Verifying Checksum
fbbfe75d3112: Download complete
cdc35e289b8d: Pull complete
aeb7244bb580: Pull complete
221fdc5d9929: Verifying Checksum
221fdc5d9929: Download complete
1fec9149b52a: Verifying Checksum
1fec9149b52a: Download complete
9c6e52557f24: Verifying Checksum
9c6e52557f24: Download complete
8737f5036aae: Verifying Checksum
8737f5036aae: Download complete
d69c4074de14: Verifying Checksum
d69c4074de14: Download complete
7237152a5f04: Verifying Checksum
7237152a5f04: Download complete
fba4b414d8a0: Verifying Checksum
fba4b414d8a0: Download complete
40d552afb3ef: Verifying Checksum
40d552afb3ef: Download complete
077cc17dc8e4: Verifying Checksum
077cc17dc8e4: Download complete
169e1be36a55: Verifying Checksum
169e1be36a55: Download complete
0a8a005097ab: Download complete
caba3ec4b361: Verifying Checksum
6a364dc641f8: Download complete
4f4fb700ef54: Verifying Checksum
4f4fb700ef54: Download complete
ab8052928cdc: Verifying Checksum
ab8052928cdc: Download complete
f5717a28dd6a: Download complete
79233a9b9bed: Download complete
d832d53e7392: Verifying Checksum
d832d53e7392: Download complete
1872dad82243: Verifying Checksum
1872dad82243: Download complete
fc1943254a0d: Verifying Checksum
fc1943254a0d: Download complete
bfd849b08ba7: Download complete
834a8024ef15: Download complete
98ccec79258b: Verifying Checksum
98ccec79258b: Download complete
fb48f36a0542: Verifying Checksum
fb48f36a0542: Download complete
3688b13db8e7: Verifying Checksum
3688b13db8e7: Download complete
a5c099f5f72c: Verifying Checksum
a5c099f5f72c: Download complete
1ff1760de5b0: Download complete
aa22ae69debd: Download complete
ec25ce9bb816: Download complete
beadd3cf7357: Verifying Checksum
beadd3cf7357: Download complete
d0d0c65a426d: Download complete
3574d8cdbcc5: Verifying Checksum
3574d8cdbcc5: Download complete
b74552b4db71: Verifying Checksum
b74552b4db71: Download complete
27b1c047e252: Download complete
26897dca61f0: Verifying Checksum
26897dca61f0: Download complete
8cb12431740e: Verifying Checksum
8cb12431740e: Download complete
0dec740ecd51: Verifying Checksum
0dec740ecd51: Download complete
79518206bd07: Download complete
98eec6764aa5: Verifying Checksum
98eec6764aa5: Download complete
12bfb7b962a2: Verifying Checksum
12bfb7b962a2: Download complete
fc1943254a0d: Pull complete
84238c416f8e: Pull complete
fbbfe75d3112: Pull complete
221fdc5d9929: Pull complete
1fec9149b52a: Pull complete
9c6e52557f24: Pull complete
8737f5036aae: Pull complete
d69c4074de14: Pull complete
7237152a5f04: Pull complete
fba4b414d8a0: Pull complete
40d552afb3ef: Pull complete
077cc17dc8e4: Pull complete
169e1be36a55: Pull complete
0a8a005097ab: Pull complete
caba3ec4b361: Pull complete
6a364dc641f8: Pull complete
4f4fb700ef54: Pull complete
ab8052928cdc: Pull complete
f5717a28dd6a: Pull complete
79233a9b9bed: Pull complete
d832d53e7392: Pull complete
1872dad82243: Pull complete
bfd849b08ba7: Pull complete
834a8024ef15: Pull complete
98ccec79258b: Pull complete
fb48f36a0542: Pull complete
3688b13db8e7: Pull complete
a5c099f5f72c: Pull complete
1ff1760de5b0: Pull complete
98eec6764aa5: Pull complete
aa22ae69debd: Pull complete
12bfb7b962a2: Pull complete
ec25ce9bb816: Pull complete
beadd3cf7357: Pull complete
d0d0c65a426d: Pull complete
3574d8cdbcc5: Pull complete
b74552b4db71: Pull complete
27b1c047e252: Pull complete
26897dca61f0: Pull complete
8cb12431740e: Pull complete
0dec740ecd51: Pull complete
79518206bd07: Pull complete
Digest: sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4
Status: Downloaded newer image for ocaml/opam@sha256:a447b546feb1d9aedc90fda889d688eb9be4d3bdea086d5b2f4f59f38f224ef4
2026-04-13 15:30.00 ---> using "650db199dd47c38a0926a758262f0be95fb78e2d9a79cbdc2809fa2b15683d52" from cache

/: (user (uid 1000) (gid 1000))

/: (workdir /home/opam)

/home/opam: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2026-04-13 15:30.00 ---> using "1d82b13dae11ba0e4ae4c53498d44d66e368b802cfcb77b29900c3af7e2a1562" from cache

/home/opam: (run (network host)
                 (shell "opam init --reinit --config .opamrc-sandbox -ni"))
Configuring from /home/opam/.opamrc-sandbox, then /home/opam/.opamrc, and finally from built-in defaults.
Checking for available remotes: rsync and local, git.
  - you won't be able to use mercurial repositories unless you install the hg command on your system.
  - you won't be able to use darcs repositories unless you install the darcs command on your system.

This version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.

Continue? [Y/n] y
Format upgrade done.

<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] Initialised
2026-04-13 15:30.00 ---> using "8fc56361284f52a58bad5297203dc12518b6d67d540112c1ecc4d982140daeca" from cache

/home/opam: (run (shell "opam option solver=builtin-0install && opam config report"))
Set to 'builtin-0install' the field solver in global configuration
# opam config report
# opam-version         2.5.0
# self-upgrade         no
# system               arch=x86_64 os=linux os-distribution=debian os-version=13
# solver               builtin-0install
# install-criteria     -changed,-count[avoid-version,solution]
# upgrade-criteria     -count[avoid-version,solution]
# jobs                 71
# repositories         1 (version-controlled)
# pinned               1 (version)
# current-switch       5.4
# invariant            ["ocaml-base-compiler" {= "5.4.1"}]
# compiler-packages    ocaml-base-compiler.5.4.1, ocaml-compiler.5.4.1, ocaml-options-vanilla.1
# ocaml:native         true
# ocaml:native-tools   true
# ocaml:native-dynlink true
# ocaml:stubsdir       /home/opam/.opam/5.4/lib/ocaml/stublibs:/home/opam/.opam/5.4/lib/ocaml
# ocaml:preinstalled   false
# ocaml:compiler       5.4.1
2026-04-13 15:30.00 ---> using "fe9db6e6aedfe8a888a2521b45017dcd4b4a70e85e324e4a3527adef84a23afd" from cache

/home/opam: (env OPAMDOWNLOADJOBS 1)

/home/opam: (env OPAMERRLOGLEN 0)

/home/opam: (env OPAMPRECISETRACKING 1)

/home/opam: (env CI true)

/home/opam: (env OPAM_REPO_CI true)

/home/opam: (run (shell "rm -rf opam-repository/"))
2026-04-13 15:30.00 ---> using "3a79be73bc2436b5aae3b84f3727fd2fe0209a9b7334e20aac2d10fcd0f26769" from cache

/home/opam: (copy (src .) (dst opam-repository/))
2026-04-13 15:30.01 ---> using "306e2765f803e9ac22f1023f023e8bba6e1f5296fc47a318acebb969ba1b1204" from cache

/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2026-04-13 15:30.01 ---> using "9e9b4bad2baa72b9fad539bf23d04eb0f2a72097c5685706fe162459f8a36f61" from cache

/home/opam: (run (network host)
                 (shell "opam update --depexts || true"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian trixie InRelease
- Get:2 http://deb.debian.org/debian trixie-updates InRelease [47.3 kB]
- Get:3 http://deb.debian.org/debian-security trixie-security InRelease [43.4 kB]
- Get:4 http://deb.debian.org/debian-security trixie-security/main amd64 Packages [122 kB]
- Fetched 213 kB in 1s (202 kB/s)
- Reading package lists...
- 
2026-04-13 15:30.01 ---> using "2fb1ac5ca6037947ba1884eb3a92b9454761e371e0b3c1955630d8faadedabed" from cache

/home/opam: (run (shell "opam pin add -k version -yn dune.3.22.2 3.22.2"))
dune is now pinned to version 3.22.2
2026-04-13 15:30.01 ---> using "44c7d7d7595c4a41e6aab53eb1a771058e5fb0ec8e90350b08cc9f23cb3d5ed9" from cache

/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
                 (network host)
                 (shell  "opam reinstall dune.3.22.2;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        partial_fails=\"\";\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n          test \"$pkg\" != 'dune.3.22.2' && partial_fails=\"$partial_fails $pkg\";\
                        \n        done;\
                        \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
                        \n        exit 1"))
dune.3.22.2 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 1 package
  - install dune 3.22.2 (pinned)

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved dune.3.22.2  (cached)
-> installed dune.3.22.2
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-13 15:30.01 ---> using "7aefc73d6425e27bc34bfbdb99d4d7e80ada815df45ed1df4e5c28f9ea60f0d6" from cache

/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
                 (network host)
                 (shell  "opam reinstall m_tree.0.1;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        partial_fails=\"\";\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n          test \"$pkg\" != 'm_tree.0.1' && partial_fails=\"$partial_fails $pkg\";\
                        \n        done;\
                        \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
                        \n        exit 1"))
m_tree.0.1 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 2 packages
  - install iter   1.9 [required by m_tree]
  - install m_tree 0.1

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved iter.1.9  (cached)
-> retrieved m_tree.0.1  (cached)
-> installed iter.1.9
-> installed m_tree.0.1
Done.
# To update the current shell environment, run: eval $(opam env)
2026-04-13 15:30.09 ---> saved as "27a147b3c44a90da6009437adf3a13d0a10249a10b9037507e97eaab341639a4"

/home/opam: (run (network host)
                 (shell "(opam reinstall --with-test m_tree.0.1) || true"))
The following actions will be performed:
=== recompile 1 package
  - recompile m_tree                      0.1
=== install 88 packages
  - install   async                       v0.17.0   [required by delimited_parsing]
  - install   async_kernel                v0.17.0   [required by async]
  - install   async_log                   v0.17.0   [required by async]
  - install   async_rpc_kernel            v0.17.0   [required by async]
  - install   async_unix                  v0.17.0   [required by async]
  - install   base                        v0.17.3   [required by core]
  - install   base_bigstring              v0.17.0   [required by core]
  - install   base_quickcheck             v0.17.1   [required by core]
  - install   bin_prot                    v0.17.0-1 [required by core]
  - install   capitalization              v0.17.0   [required by ppx_string_conv]
  - install   core                        v0.17.2   [required by m_tree]
  - install   core_bench                  v0.17.0   [required by m_tree]
  - install   core_extended               v0.17.0   [required by core_bench]
  - install   core_kernel                 v0.17.0   [required by core_bench]
  - install   core_unix                   v0.17.1   [required by core_bench]
  - install   csexp                       1.5.2     [required by dune-configurator]
  - install   cstruct                     6.2.0     [required by async_unix]
  - install   delimited_parsing           v0.17.0   [required by core_bench]
  - install   dune-configurator           3.22.2    [required by base]
  - install   expect_test_helpers_core    v0.17.0   [required by core_unix]
  - install   fieldslib                   v0.17.0   [required by core]
  - install   fmt                         0.11.0    [required by cstruct]
  - install   gel                         v0.17.0   [required by ppx_diff]
  - install   int_repr                    v0.17.0   [required by base_bigstring]
  - install   jane-street-headers         v0.17.0   [required by core]
  - install   jst-config                  v0.17.0   [required by core]
  - install   num                         1.6       [required by sexplib]
  - install   ocaml-compiler-libs         v0.17.0   [required by ppxlib]
  - install   ocaml_intrinsics_kernel     v0.17.1   [required by base]
  - install   ocamlbuild                  0.16.1    [required by uutf]
  - install   ocamlfind                   1.9.8     [required by uutf]
  - install   parsexp                     v0.17.0   [required by sexplib]
  - install   ppx_assert                  v0.17.0   [required by m_tree]
  - install   ppx_base                    v0.17.0   [required by core]
  - install   ppx_bench                   v0.17.1   [required by ppx_jane]
  - install   ppx_bin_prot                v0.17.1   [required by ppx_jane]
  - install   ppx_cold                    v0.17.0   [required by ppx_base]
  - install   ppx_compare                 v0.17.0   [required by m_tree]
  - install   ppx_custom_printf           v0.17.0   [required by ppx_jane]
  - install   ppx_derivers                1.2.1     [required by ppxlib]
  - install   ppx_diff                    v0.17.1   [required by core]
  - install   ppx_disable_unused_warnings v0.17.0   [required by ppx_jane]
  - install   ppx_enumerate               v0.17.0   [required by ppx_diff]
  - install   ppx_expect                  v0.17.3   [required by m_tree]
  - install   ppx_fields_conv             v0.17.0   [required by core_bench]
  - install   ppx_fixed_literal           v0.17.0   [required by ppx_jane]
  - install   ppx_globalize               v0.17.2   [required by ppx_base]
  - install   ppx_hash                    v0.17.0   [required by core]
  - install   ppx_here                    v0.17.0   [required by ppx_jane]
  - install   ppx_ignore_instrumentation  v0.17.0   [required by ppx_jane]
  - install   ppx_inline_test             v0.17.1   [required by core]
  - install   ppx_jane                    v0.17.0   [required by core, core_bench]
  - install   ppx_let                     v0.17.1   [required by core_bench]
  - install   ppx_log                     v0.17.0   [required by ppx_jane]
  - install   ppx_module_timer            v0.17.0   [required by ppx_jane]
  - install   ppx_optcomp                 v0.17.1   [required by core]
  - install   ppx_optional                v0.17.0   [required by ppx_jane]
  - install   ppx_pipebang                v0.17.0   [required by ppx_jane]
  - install   ppx_sexp_conv               v0.17.1   [required by m_tree]
  - install   ppx_sexp_message            v0.17.0   [required by m_tree]
  - install   ppx_sexp_value              v0.17.0   [required by ppx_jane]
  - install   ppx_stable                  v0.17.1   [required by ppx_jane]
  - install   ppx_stable_witness          v0.17.0   [required by ppx_jane]
  - install   ppx_string                  v0.17.0   [required by ppx_jane]
  - install   ppx_string_conv             v0.17.0   [required by ppx_jane]
  - install   ppx_tydi                    v0.17.1   [required by ppx_jane]
  - install   ppx_typerep_conv            v0.17.1   [required by ppx_jane]
  - install   ppx_variants_conv           v0.17.1   [required by ppx_jane]
  - install   ppxlib                      0.38.0    [required by ppx_diff]
  - install   ppxlib_jane                 v0.17.4   [required by ppx_diff]
  - install   protocol_version_header     v0.17.0   [required by async_rpc_kernel]
  - install   re                          1.14.0    [required by core_bench]
  - install   record_builder              v0.17.0   [required by core_extended]
  - install   sexp_pretty                 v0.17.0   [required by expect_test_helpers_core]
  - install   sexplib                     v0.17.0   [required by core]
  - install   sexplib0                    v0.17.0   [required by base]
  - install   spawn                       v0.17.0   [required by core_unix]
  - install   splittable_random           v0.17.0   [required by core]
  - install   stdio                       v0.17.0   [required by core]
  - install   stdlib-shims                0.3.0     [required by ppxlib]
  - install   textutils                   v0.17.0   [required by core_bench]
  - install   time_now                    v0.17.0   [required by core, core_bench]
  - install   timezone                    v0.17.0   [required by core_unix]
  - install   topkg                       1.1.1     [required by uutf]
  - install   typerep                     v0.17.1   [required by core]
  - install   uopt                        v0.17.0   [required by core_kernel, core_unix]
  - install   uutf                        1.0.4     [required by textutils]
  - install   variantslib                 v0.17.0   [required by core]

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved async.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved async_kernel.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved async_log.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved async_rpc_kernel.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved async_unix.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved base.v0.17.3  (https://opam.ocaml.org/cache)
-> retrieved base_bigstring.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved base_quickcheck.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved bin_prot.v0.17.0-1  (https://opam.ocaml.org/cache)
-> retrieved capitalization.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved core.v0.17.2  (https://opam.ocaml.org/cache)
-> retrieved core_bench.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved core_extended.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved core_kernel.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved core_unix.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved csexp.1.5.2  (https://opam.ocaml.org/cache)
-> installed csexp.1.5.2
-> retrieved cstruct.6.2.0  (https://opam.ocaml.org/cache)
-> retrieved delimited_parsing.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved dune-configurator.3.22.2  (https://github.com/ocaml/dune/releases/download/3.22.2/dune-3.22.2.tbz)
-> installed dune-configurator.3.22.2
-> retrieved expect_test_helpers_core.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved fieldslib.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved fmt.0.11.0  (https://opam.ocaml.org/cache)
-> retrieved gel.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved int_repr.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved jane-street-headers.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved jst-config.v0.17.0  (https://opam.ocaml.org/cache)
-> installed jane-street-headers.v0.17.0
-> retrieved m_tree.0.1  (https://opam.ocaml.org/cache)
-> retrieved num.1.6  (https://opam.ocaml.org/cache)
-> retrieved ocaml-compiler-libs.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ocaml_intrinsics_kernel.v0.17.1  (https://opam.ocaml.org/cache)
-> installed ocaml_intrinsics_kernel.v0.17.1
-> retrieved ocamlbuild.0.16.1  (https://opam.ocaml.org/cache)
-> retrieved ocamlfind.1.9.8  (https://opam.ocaml.org/cache)
-> retrieved parsexp.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_assert.v0.17.0  (https://opam.ocaml.org/cache)
-> installed ocaml-compiler-libs.v0.17.0
-> retrieved ppx_base.v0.17.0  (https://opam.ocaml.org/cache)
-> installed num.1.6
-> retrieved ppx_bench.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_bin_prot.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_cold.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_compare.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_custom_printf.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_derivers.1.2.1  (https://opam.ocaml.org/cache)
-> installed ppx_derivers.1.2.1
-> retrieved ppx_diff.v0.17.1  (https://opam.ocaml.org/cache)
-> installed ocamlfind.1.9.8
-> installed ocamlbuild.0.16.1
-> retrieved ppx_disable_unused_warnings.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_enumerate.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_expect.v0.17.3  (https://opam.ocaml.org/cache)
-> retrieved ppx_fields_conv.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_fixed_literal.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_globalize.v0.17.2  (https://opam.ocaml.org/cache)
-> retrieved ppx_hash.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_here.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_ignore_instrumentation.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_inline_test.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_jane.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_let.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_log.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_module_timer.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_optcomp.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_optional.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_pipebang.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_sexp_conv.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_sexp_message.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_sexp_value.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_stable.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_stable_witness.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_string.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_string_conv.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved ppx_tydi.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_typerep_conv.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppx_variants_conv.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved ppxlib.0.38.0  (https://opam.ocaml.org/cache)
-> retrieved ppxlib_jane.v0.17.4  (https://opam.ocaml.org/cache)
-> retrieved protocol_version_header.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved re.1.14.0  (https://opam.ocaml.org/cache)
-> retrieved record_builder.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved sexp_pretty.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved sexplib.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved sexplib0.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved spawn.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved splittable_random.v0.17.0  (https://opam.ocaml.org/cache)
-> installed sexplib0.v0.17.0
-> installed spawn.v0.17.0
-> retrieved stdio.v0.17.0  (https://opam.ocaml.org/cache)
-> installed re.1.14.0
-> retrieved stdlib-shims.0.3.0  (https://opam.ocaml.org/cache)
-> retrieved textutils.v0.17.0  (https://opam.ocaml.org/cache)
-> removed   m_tree.0.1
-> installed stdlib-shims.0.3.0
-> retrieved time_now.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved timezone.v0.17.0  (https://opam.ocaml.org/cache)
-> retrieved topkg.1.1.1  (https://opam.ocaml.org/cache)
-> retrieved typerep.v0.17.1  (https://opam.ocaml.org/cache)
-> retrieved uopt.v0.17.0  (https://opam.ocaml.org/cache)
-> installed parsexp.v0.17.0
-> retrieved uutf.1.0.4  (https://opam.ocaml.org/cache)
-> retrieved variantslib.v0.17.0  (https://opam.ocaml.org/cache)
-> installed sexplib.v0.17.0
-> installed topkg.1.1.1
-> installed uutf.1.0.4
-> installed fmt.0.11.0
-> installed base.v0.17.3
-> installed cstruct.6.2.0
-> installed variantslib.v0.17.0
-> installed fieldslib.v0.17.0
-> installed stdio.v0.17.0
-> installed typerep.v0.17.1
-> installed ppxlib.0.38.0
-> installed ppxlib_jane.v0.17.4
-> installed ppx_optcomp.v0.17.1
-> installed ppx_variants_conv.v0.17.1
-> installed ppx_stable_witness.v0.17.0
-> installed ppx_cold.v0.17.0
-> installed ppx_here.v0.17.0
-> installed ppx_fields_conv.v0.17.0
-> installed ppx_disable_unused_warnings.v0.17.0
-> installed ppx_tydi.v0.17.1
-> installed ppx_pipebang.v0.17.0
-> installed ppx_typerep_conv.v0.17.1
-> installed ppx_stable.v0.17.1
-> installed ppx_enumerate.v0.17.0
-> installed ppx_compare.v0.17.0
-> installed ppx_ignore_instrumentation.v0.17.0
-> installed ppx_globalize.v0.17.2
-> installed ppx_fixed_literal.v0.17.0
-> installed ppx_optional.v0.17.0
-> installed ppx_sexp_conv.v0.17.1
-> installed ppx_let.v0.17.1
-> installed ppx_hash.v0.17.0
-> installed ppx_sexp_value.v0.17.0
-> installed ppx_sexp_message.v0.17.0
-> installed ppx_assert.v0.17.0
-> installed ppx_custom_printf.v0.17.0
-> installed ppx_base.v0.17.0
-> installed capitalization.v0.17.0
-> installed sexp_pretty.v0.17.0
-> installed jst-config.v0.17.0
-> installed bin_prot.v0.17.0-1
-> installed ppx_string.v0.17.0
-> installed time_now.v0.17.0
-> installed ppx_bin_prot.v0.17.1
-> installed ppx_string_conv.v0.17.0
-> installed ppx_module_timer.v0.17.0
-> installed ppx_inline_test.v0.17.1
-> installed ppx_bench.v0.17.1
-> installed ppx_expect.v0.17.3
-> installed splittable_random.v0.17.0
-> installed ppx_log.v0.17.0
-> installed base_quickcheck.v0.17.1
-> installed ppx_jane.v0.17.0
-> installed gel.v0.17.0
-> installed uopt.v0.17.0
-> installed record_builder.v0.17.0
-> installed int_repr.v0.17.0
-> installed base_bigstring.v0.17.0
-> installed ppx_diff.v0.17.1
-> installed core.v0.17.2
-> installed protocol_version_header.v0.17.0
-> installed timezone.v0.17.0
-> installed expect_test_helpers_core.v0.17.0
-> installed core_kernel.v0.17.0
-> installed async_kernel.v0.17.0
-> installed core_unix.v0.17.1
-> installed textutils.v0.17.0
-> installed async_rpc_kernel.v0.17.0
-> installed core_extended.v0.17.0
-> installed async_unix.v0.17.0
-> installed async_log.v0.17.0
-> installed async.v0.17.0
-> installed delimited_parsing.v0.17.0
-> installed core_bench.v0.17.0
[ERROR] The compilation of m_tree.0.1 failed at "dune build -p m_tree -j 71 @install @runtest".

#=== ERROR while compiling m_tree.0.1 =========================================#
# context              2.5.0 | linux/x86_64 | ocaml-base-compiler.5.4.1 | file:///home/opam/opam-repository
# path                 ~/.opam/5.4/.opam-switch/build/m_tree.0.1
# command              ~/.opam/opam-init/hooks/sandbox.sh build dune build -p m_tree -j 71 @install @runtest
# exit-code            1
# env-file             ~/.opam/log/m_tree-7-2be573.env
# output-file          ~/.opam/log/m_tree-7-2be573.out
### output ###
# File "test/test.ml", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/default/test/test.ml _build/default/test/test.ml.corrected
# diff --git a/_build/default/test/test.ml b/_build/default/test/test.ml.corrected
# index 0c69937..7865d89 100644
# --- a/_build/default/test/test.ml
# +++ b/_build/default/test/test.ml.corrected
# @@ -67,14 +67,15 @@ let%expect_test "" =
#    [%expect
#      {|
#      ((r
# +      ((value 1) (tree ((is_leaf true) (objects (((value 1) (parent_dist 0))))))))
# +     (r'
#        ((value 1.5)
#         (tree
#          ((is_leaf true)
# -         (objects (((value 1) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
# -     (r'
# -      ((value 2) (tree ((is_leaf true) (objects (((value 2) (parent_dist 0))))))))
# -     (o1 ((value 1) (parent_dist 0.5))) (o2 ((value 2) (parent_dist 0)))
# -     (o3 ((value 1.5) (parent_dist 0)))) |}]
# +         (objects (((value 2) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
# +     (o1 ((value 1) (parent_dist 0))) (o2 ((value 2) (parent_dist 0.5)))
# +     (o3 ((value 1.5) (parent_dist 0))))
# +    |}]
#  
#  let%expect_test "" =
#    let tree = create ~branching_factor:2 abs_dist in
# @@ -88,17 +89,18 @@ let%expect_test "" =
#       ((root
#         ((is_leaf false)
#          (objects
# -         (((value 2) (radius 0.5)
# +         (((value 1.5) (radius 0.5)
#             (tree
#              ((is_leaf true)
#               (objects
# -              (((value 1.5) (parent_dist 0.5)) ((value 2) (parent_dist 0))))
# -             (parent (((value 2) (radius 0.5) (tree <opaque>)) <opaque>)))))
# -          ((value 1)
# +              (((value 1.5) (parent_dist 0)) ((value 1) (parent_dist 0.5))))
# +             (parent (((value 1.5) (radius 0.5) (tree <opaque>)) <opaque>)))))
# +          ((value 2)
#             (tree
# -            ((is_leaf true) (objects (((value 1) (parent_dist 0))))
# -             (parent (((value 1) (tree <opaque>)) <opaque>)))))))))
# -      (branching_factor 2) (distance <fun>) (eq <fun>))) |}]
# +            ((is_leaf true) (objects (((value 2) (parent_dist 0))))
# +             (parent (((value 2) (tree <opaque>)) <opaque>)))))))))
# +      (branching_factor 2) (distance <fun>) (eq <fun>)))
# +    |}]
#  
#  let points =
#    [
# @@ -173,210 +175,220 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.099999999999999978)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.099999999999999978)
# +               (((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent
# +               (((value 0.6) (radius 0.099999999999999978) (tree <opaque>))
# +                <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent
# -               (((value 0.5) (radius 0.099999999999999978) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.9)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.4)
# +               (((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent
# +               (((value 0.6) (radius 0.30000000000000004) (tree <opaque>))
# +                <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.9) (parent_dist 0.4))
# -                ((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent (((value 0.5) (radius 0.4) (tree <opaque>)) <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.95)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.35)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.44999999999999996)
# +               (((value 0.95) (parent_dist 0.35))
# +                ((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.44999999999999996))
# -                ((value 0.9) (parent_dist 0.4))
# -                ((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent
# -               (((value 0.5) (radius 0.44999999999999996) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.8)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.6) (radius 0.35)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.8) (parent_dist 0.20000000000000007))
# +                ((value 0.95) (parent_dist 0.35))
# +                ((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))))
# +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.65)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.9) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# +               (((value 0.65) (parent_dist 0.25))
# +                ((value 0.8) (parent_dist 0.099999999999999978))
# +                ((value 0.9) (parent_dist 0))
# +                ((value 0.6) (parent_dist 0.30000000000000004))))
#                (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
#                  <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +           ((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.95)
# +            (tree
# +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.01)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.9) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# +               (((value 0.65) (parent_dist 0.25))
# +                ((value 0.8) (parent_dist 0.099999999999999978))
# +                ((value 0.9) (parent_dist 0))
# +                ((value 0.6) (parent_dist 0.30000000000000004))))
#                (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
#                  <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +           ((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.95)
# +            (tree
# +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.19)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.01) (parent_dist 0.19))
# +                ((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.19) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.21)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.0099999999999999811)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.0099999999999999811) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.06)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.06) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.25))
# +                     ((value 0.8) (parent_dist 0.099999999999999978))
# +                     ((value 0.9) (parent_dist 0))
# +                     ((value 0.6) (parent_dist 0.30000000000000004))))
# +                   (parent
# +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.23)
# @@ -384,45 +396,64 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.020000000000000018)
# -            (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.23) (parent_dist 0.020000000000000018))
# -                ((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.25))
# +                     ((value 0.8) (parent_dist 0.099999999999999978))
# +                     ((value 0.9) (parent_dist 0))
# +                     ((value 0.6) (parent_dist 0.30000000000000004))))
# +                   (parent
# +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.88)
# @@ -430,46 +461,74 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.88) (parent_dist 0.020000000000000018))
# -                ((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.020000000000000018)
# -            (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.23) (parent_dist 0.020000000000000018))
# -                ((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.88) (parent_dist 0.38) (radius 0.07999999999999996)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
# +                   (parent
# +                    (((value 0.88) (parent_dist 0.38)
# +                      (radius 0.07999999999999996) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.74)
# @@ -477,457 +536,490 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.62)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.55)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.32)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.12)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.12) (parent_dist 0.01999999999999999))
# -                     ((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.12) (parent_dist 0.01999999999999999))
# +                     ((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.14)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.15) (parent_dist 0.06)
# +               (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
#                   (tree
# -                  ((is_leaf true) (objects (((value 0.15) (parent_dist 0))))
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.14) (parent_dist 0.0099999999999999811))
# +                     ((value 0.15) (parent_dist 0))))
#                     (parent
# -                    (((value 0.15) (parent_dist 0.06) (tree <opaque>)) <opaque>)))))
# -                ((value 0.14) (parent_dist 0.069999999999999979) (radius 0.13)
# +                    (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.2) (parent_dist 0.050000000000000017) (radius 0.03)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.14) (parent_dist 0))
# -                     ((value 0.12) (parent_dist 0.020000000000000018))
# -                     ((value 0.01) (parent_dist 0.13))
# -                     ((value 0.1) (parent_dist 0.040000000000000008))))
# +                    (((value 0.23) (parent_dist 0.03))
# +                     ((value 0.21) (parent_dist 0.0099999999999999811))
# +                     ((value 0.2) (parent_dist 0))))
#                     (parent
# -                    (((value 0.14) (parent_dist 0.069999999999999979)
# -                      (radius 0.13) (tree <opaque>))
# +                    (((value 0.2) (parent_dist 0.050000000000000017)
# +                      (radius 0.03) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.12) (parent_dist 0.01999999999999999))
# +                     ((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# -       (branching_factor 4) (distance <fun>) (eq <fun>)))) |}]
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
# +       (branching_factor 4) (distance <fun>) (eq <fun>))))
# +    |}]
#  
#  let%test_unit "" =
#    let tree = create abs_dist in



<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build m_tree 0.1
+- 
+- The following changes have been performed
| - remove  m_tree                      0.1
| - install async                       v0.17.0
| - install async_kernel                v0.17.0
| - install async_log                   v0.17.0
| - install async_rpc_kernel            v0.17.0
| - install async_unix                  v0.17.0
| - install base                        v0.17.3
| - install base_bigstring              v0.17.0
| - install base_quickcheck             v0.17.1
| - install bin_prot                    v0.17.0-1
| - install capitalization              v0.17.0
| - install core                        v0.17.2
| - install core_bench                  v0.17.0
| - install core_extended               v0.17.0
| - install core_kernel                 v0.17.0
| - install core_unix                   v0.17.1
| - install csexp                       1.5.2
| - install cstruct                     6.2.0
| - install delimited_parsing           v0.17.0
| - install dune-configurator           3.22.2
| - install expect_test_helpers_core    v0.17.0
| - install fieldslib                   v0.17.0
| - install fmt                         0.11.0
| - install gel                         v0.17.0
| - install int_repr                    v0.17.0
| - install jane-street-headers         v0.17.0
| - install jst-config                  v0.17.0
| - install num                         1.6
| - install ocaml-compiler-libs         v0.17.0
| - install ocaml_intrinsics_kernel     v0.17.1
| - install ocamlbuild                  0.16.1
| - install ocamlfind                   1.9.8
| - install parsexp                     v0.17.0
| - install ppx_assert                  v0.17.0
| - install ppx_base                    v0.17.0
| - install ppx_bench                   v0.17.1
| - install ppx_bin_prot                v0.17.1
| - install ppx_cold                    v0.17.0
| - install ppx_compare                 v0.17.0
| - install ppx_custom_printf           v0.17.0
| - install ppx_derivers                1.2.1
| - install ppx_diff                    v0.17.1
| - install ppx_disable_unused_warnings v0.17.0
| - install ppx_enumerate               v0.17.0
| - install ppx_expect                  v0.17.3
| - install ppx_fields_conv             v0.17.0
| - install ppx_fixed_literal           v0.17.0
| - install ppx_globalize               v0.17.2
| - install ppx_hash                    v0.17.0
| - install ppx_here                    v0.17.0
| - install ppx_ignore_instrumentation  v0.17.0
| - install ppx_inline_test             v0.17.1
| - install ppx_jane                    v0.17.0
| - install ppx_let                     v0.17.1
| - install ppx_log                     v0.17.0
| - install ppx_module_timer            v0.17.0
| - install ppx_optcomp                 v0.17.1
| - install ppx_optional                v0.17.0
| - install ppx_pipebang                v0.17.0
| - install ppx_sexp_conv               v0.17.1
| - install ppx_sexp_message            v0.17.0
| - install ppx_sexp_value              v0.17.0
| - install ppx_stable                  v0.17.1
| - install ppx_stable_witness          v0.17.0
| - install ppx_string                  v0.17.0
| - install ppx_string_conv             v0.17.0
| - install ppx_tydi                    v0.17.1
| - install ppx_typerep_conv            v0.17.1
| - install ppx_variants_conv           v0.17.1
| - install ppxlib                      0.38.0
| - install ppxlib_jane                 v0.17.4
| - install protocol_version_header     v0.17.0
| - install re                          1.14.0
| - install record_builder              v0.17.0
| - install sexp_pretty                 v0.17.0
| - install sexplib                     v0.17.0
| - install sexplib0                    v0.17.0
| - install spawn                       v0.17.0
| - install splittable_random           v0.17.0
| - install stdio                       v0.17.0
| - install stdlib-shims                0.3.0
| - install textutils                   v0.17.0
| - install time_now                    v0.17.0
| - install timezone                    v0.17.0
| - install topkg                       1.1.1
| - install typerep                     v0.17.1
| - install uopt                        v0.17.0
| - install uutf                        1.0.4
| - install variantslib                 v0.17.0
+- 
# To update the current shell environment, run: eval $(opam env)

The former state can be restored with:
    /usr/bin/opam switch import "/home/opam/.opam/5.4/.opam-switch/backup/state-20260413153010.export"
Or you can retry to install your package selection with:
    /usr/bin/opam install --restore
2026-04-13 15:35.33 ---> saved as "73312de31ffe8bb249f6695a600893715e9b199d89d7c09b56c5adae75d1bee9"

/home/opam: (run (shell  "opam reinstall --with-test --verbose m_tree.0.1;\
                        \n        res=$?;\
                        \n        test \"$res\" != 31 && exit \"$res\";\
                        \n        export OPAMCLI=2.0;\
                        \n        build_dir=$(opam var prefix)/.opam-switch/build;\
                        \n        failed=$(ls \"$build_dir\");\
                        \n        partial_fails=\"\";\
                        \n        for pkg in $failed; do\
                        \n          if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-13\\\"\"; then\
                        \n            echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
                        \n          fi;\
                        \n          test \"$pkg\" != 'm_tree.0.1' && partial_fails=\"$partial_fails $pkg\";\
                        \n        done;\
                        \n        test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
                        \n        exit 1"))
m_tree.0.1 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 1 package
  - install m_tree 0.1

<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing  1/3: [m_tree.0.1: extract]
-> retrieved m_tree.0.1  (cached)
Processing  2/3: [m_tree: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "m_tree" "-j" "71" "@install" "@runtest" (CWD=/home/opam/.opam/5.4/.opam-switch/build/m_tree.0.1)
- File "test/test.ml", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/default/test/test.ml _build/default/test/test.ml.corrected
- diff --git a/_build/default/test/test.ml b/_build/default/test/test.ml.corrected
- index 0c69937..7865d89 100644
- --- a/_build/default/test/test.ml
- +++ b/_build/default/test/test.ml.corrected
- @@ -67,14 +67,15 @@ let%expect_test "" =
-    [%expect
-      {|
-      ((r
- +      ((value 1) (tree ((is_leaf true) (objects (((value 1) (parent_dist 0))))))))
- +     (r'
-        ((value 1.5)
-         (tree
-          ((is_leaf true)
- -         (objects (((value 1) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
- -     (r'
- -      ((value 2) (tree ((is_leaf true) (objects (((value 2) (parent_dist 0))))))))
- -     (o1 ((value 1) (parent_dist 0.5))) (o2 ((value 2) (parent_dist 0)))
- -     (o3 ((value 1.5) (parent_dist 0)))) |}]
- +         (objects (((value 2) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
- +     (o1 ((value 1) (parent_dist 0))) (o2 ((value 2) (parent_dist 0.5)))
- +     (o3 ((value 1.5) (parent_dist 0))))
- +    |}]
-  
-  let%expect_test "" =
-    let tree = create ~branching_factor:2 abs_dist in
- @@ -88,17 +89,18 @@ let%expect_test "" =
-       ((root
-         ((is_leaf false)
-          (objects
- -         (((value 2) (radius 0.5)
- +         (((value 1.5) (radius 0.5)
-             (tree
-              ((is_leaf true)
-               (objects
- -              (((value 1.5) (parent_dist 0.5)) ((value 2) (parent_dist 0))))
- -             (parent (((value 2) (radius 0.5) (tree <opaque>)) <opaque>)))))
- -          ((value 1)
- +              (((value 1.5) (parent_dist 0)) ((value 1) (parent_dist 0.5))))
- +             (parent (((value 1.5) (radius 0.5) (tree <opaque>)) <opaque>)))))
- +          ((value 2)
-             (tree
- -            ((is_leaf true) (objects (((value 1) (parent_dist 0))))
- -             (parent (((value 1) (tree <opaque>)) <opaque>)))))))))
- -      (branching_factor 2) (distance <fun>) (eq <fun>))) |}]
- +            ((is_leaf true) (objects (((value 2) (parent_dist 0))))
- +             (parent (((value 2) (tree <opaque>)) <opaque>)))))))))
- +      (branching_factor 2) (distance <fun>) (eq <fun>)))
- +    |}]
-  
-  let points =
-    [
- @@ -173,210 +175,220 @@ let%expect_test "" =
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.1)
- +          (((value 0.6) (radius 0.099999999999999978)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.5) (radius 0.099999999999999978)
- +               (((value 0.6) (parent_dist 0))
- +                ((value 0.5) (parent_dist 0.099999999999999978))))
- +              (parent
- +               (((value 0.6) (radius 0.099999999999999978) (tree <opaque>))
- +                <opaque>)))))
- +           ((value 0.2) (radius 0.1)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.6) (parent_dist 0.099999999999999978))
- -                ((value 0.5) (parent_dist 0))))
- -              (parent
- -               (((value 0.5) (radius 0.099999999999999978) (tree <opaque>))
- -                <opaque>)))))))))
- +               (((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.9)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.1)
- +          (((value 0.6) (radius 0.30000000000000004)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.5) (radius 0.4)
- +               (((value 0.9) (parent_dist 0.30000000000000004))
- +                ((value 0.6) (parent_dist 0))
- +                ((value 0.5) (parent_dist 0.099999999999999978))))
- +              (parent
- +               (((value 0.6) (radius 0.30000000000000004) (tree <opaque>))
- +                <opaque>)))))
- +           ((value 0.2) (radius 0.1)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.9) (parent_dist 0.4))
- -                ((value 0.6) (parent_dist 0.099999999999999978))
- -                ((value 0.5) (parent_dist 0))))
- -              (parent (((value 0.5) (radius 0.4) (tree <opaque>)) <opaque>)))))))))
- +               (((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.95)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.1)
- +          (((value 0.6) (radius 0.35)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.5) (radius 0.44999999999999996)
- +               (((value 0.95) (parent_dist 0.35))
- +                ((value 0.9) (parent_dist 0.30000000000000004))
- +                ((value 0.6) (parent_dist 0))
- +                ((value 0.5) (parent_dist 0.099999999999999978))))
- +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
- +           ((value 0.2) (radius 0.1)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.95) (parent_dist 0.44999999999999996))
- -                ((value 0.9) (parent_dist 0.4))
- -                ((value 0.6) (parent_dist 0.099999999999999978))
- -                ((value 0.5) (parent_dist 0))))
- -              (parent
- -               (((value 0.5) (radius 0.44999999999999996) (tree <opaque>))
- -                <opaque>)))))))))
- +               (((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.8)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.9) (radius 0.049999999999999933)
- +          (((value 0.5)
-              (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- -              (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.1) (radius 0.1)
- +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
- +           ((value 0.6) (radius 0.35)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +               (((value 0.8) (parent_dist 0.20000000000000007))
- +                ((value 0.95) (parent_dist 0.35))
- +                ((value 0.9) (parent_dist 0.30000000000000004))
- +                ((value 0.6) (parent_dist 0))))
- +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
- +           ((value 0.2) (radius 0.1)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- -              (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- -                <opaque>)))))))))
- +               (((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.65)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.9) (radius 0.049999999999999933)
- +          (((value 0.9) (radius 0.30000000000000004)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- +               (((value 0.65) (parent_dist 0.25))
- +                ((value 0.8) (parent_dist 0.099999999999999978))
- +                ((value 0.9) (parent_dist 0))
- +                ((value 0.6) (parent_dist 0.30000000000000004))))
-                (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
-                  <opaque>)))))
- -           ((value 0.1) (radius 0.1)
- +           ((value 0.5)
-              (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
- +           ((value 0.95)
- +            (tree
- +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
- +           ((value 0.2) (radius 0.1)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.65) (parent_dist 0.15000000000000002))
- -                ((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- -              (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- -                <opaque>)))))))))
- +               (((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.01)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.9) (radius 0.049999999999999933)
- +          (((value 0.9) (radius 0.30000000000000004)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- +               (((value 0.65) (parent_dist 0.25))
- +                ((value 0.8) (parent_dist 0.099999999999999978))
- +                ((value 0.9) (parent_dist 0))
- +                ((value 0.6) (parent_dist 0.30000000000000004))))
-                (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
-                  <opaque>)))))
- -           ((value 0.1) (radius 0.1)
- +           ((value 0.5)
-              (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.01) (parent_dist 0.090000000000000011))
- -                ((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
- -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
- +           ((value 0.95)
- +            (tree
- +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
- +           ((value 0.2) (radius 0.19)
-              (tree
-               ((is_leaf true)
-                (objects
- -               (((value 0.65) (parent_dist 0.15000000000000002))
- -                ((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- -              (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- -                <opaque>)))))))))
- +               (((value 0.01) (parent_dist 0.19))
- +                ((value 0.15) (parent_dist 0.050000000000000017))
- +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
- +              (parent (((value 0.2) (radius 0.19) (tree <opaque>)) <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.21)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.090000000000000011)
- -            (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.01) (parent_dist 0.090000000000000011))
- -                ((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.1) (parent_dist 0))))
- -              (parent
- -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.9) (radius 0.049999999999999933)
- -            (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- -              (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.21) (radius 0.0099999999999999811)
- +          (((value 0.15) (radius 0.14)
-              (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.21) (parent_dist 0))
- -                ((value 0.2) (parent_dist 0.0099999999999999811))))
- -              (parent
- -               (((value 0.21) (radius 0.0099999999999999811) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +               (((value 0.15) (parent_dist 0) (radius 0.06)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
- +                   (parent
- +                    (((value 0.15) (parent_dist 0) (radius 0.06) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
- +                     <opaque>)))))))
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.15000000000000002))
- -                ((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.65) (parent_dist 0.25))
- +                     ((value 0.8) (parent_dist 0.099999999999999978))
- +                     ((value 0.9) (parent_dist 0))
- +                     ((value 0.6) (parent_dist 0.30000000000000004))))
- +                   (parent
- +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
- +                      (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.5) (parent_dist 0)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
- +                      (tree <opaque>))
- +                     <opaque>)))))))
-                (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
-                  <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.23)
- @@ -384,45 +396,64 @@ let%expect_test "" =
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.090000000000000011)
- +          (((value 0.15) (radius 0.14)
-              (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.01) (parent_dist 0.090000000000000011))
- -                ((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.1) (parent_dist 0))))
- -              (parent
- -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.9) (radius 0.049999999999999933)
- -            (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- -              (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.21) (radius 0.020000000000000018)
- -            (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.23) (parent_dist 0.020000000000000018))
- -                ((value 0.21) (parent_dist 0))
- -                ((value 0.2) (parent_dist 0.0099999999999999811))))
- -              (parent
- -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
- +                   (parent
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
- +                     <opaque>)))))))
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.15000000000000002))
- -                ((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.65) (parent_dist 0.25))
- +                     ((value 0.8) (parent_dist 0.099999999999999978))
- +                     ((value 0.9) (parent_dist 0))
- +                     ((value 0.6) (parent_dist 0.30000000000000004))))
- +                   (parent
- +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
- +                      (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.5) (parent_dist 0)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
- +                      (tree <opaque>))
- +                     <opaque>)))))))
-                (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
-                  <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.88)
- @@ -430,46 +461,74 @@ let%expect_test "" =
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.1) (radius 0.090000000000000011)
- -            (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.01) (parent_dist 0.090000000000000011))
- -                ((value 0.15) (parent_dist 0.049999999999999989))
- -                ((value 0.1) (parent_dist 0))))
- -              (parent
- -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.9) (radius 0.049999999999999933)
- +          (((value 0.15) (radius 0.14)
-              (tree
- -             ((is_leaf true)
- -              (objects
- -               (((value 0.88) (parent_dist 0.020000000000000018))
- -                ((value 0.95) (parent_dist 0.049999999999999933))
- -                ((value 0.9) (parent_dist 0))))
- -              (parent
- -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.21) (radius 0.020000000000000018)
- -            (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.23) (parent_dist 0.020000000000000018))
- -                ((value 0.21) (parent_dist 0))
- -                ((value 0.2) (parent_dist 0.0099999999999999811))))
- -              (parent
- -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
- -                <opaque>)))))
- -           ((value 0.8) (radius 0.30000000000000004)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
- +                   (parent
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
- +                     <opaque>)))))))
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
- -             ((is_leaf true)
- +             ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.15000000000000002))
- -                ((value 0.8) (parent_dist 0))
- -                ((value 0.6) (parent_dist 0.20000000000000007))
- -                ((value 0.5) (parent_dist 0.30000000000000004))))
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.88) (parent_dist 0.38) (radius 0.07999999999999996)
- +                 (tree
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
- +                   (parent
- +                    (((value 0.88) (parent_dist 0.38)
- +                      (radius 0.07999999999999996) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.5) (parent_dist 0)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
- +                      (tree <opaque>))
- +                     <opaque>)))))))
-                (parent
- -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
-                  <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.74)
- @@ -477,457 +536,490 @@ let%expect_test "" =
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.1) (parent_dist 0.10999999999999999)
- -                 (radius 0.090000000000000011)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.01) (parent_dist 0.090000000000000011))
- -                     ((value 0.15) (parent_dist 0.049999999999999989))
- -                     ((value 0.1) (parent_dist 0))))
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
-                     (parent
- -                    (((value 0.1) (parent_dist 0.10999999999999999)
- -                      (radius 0.090000000000000011) (tree <opaque>))
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0)
-                   (tree
- -                  ((is_leaf true)
- -                   (objects
- -                    (((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.62)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.1) (parent_dist 0.10999999999999999)
- -                 (radius 0.090000000000000011)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.01) (parent_dist 0.090000000000000011))
- -                     ((value 0.15) (parent_dist 0.049999999999999989))
- -                     ((value 0.1) (parent_dist 0))))
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
-                     (parent
- -                    (((value 0.1) (parent_dist 0.10999999999999999)
- -                      (radius 0.090000000000000011) (tree <opaque>))
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.62) (parent_dist 0.020000000000000018))
- +                     ((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0)
-                   (tree
- -                  ((is_leaf true)
- -                   (objects
- -                    (((value 0.62) (parent_dist 0.020000000000000018))
- -                     ((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.55)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.1) (parent_dist 0.10999999999999999)
- -                 (radius 0.090000000000000011)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.01) (parent_dist 0.090000000000000011))
- -                     ((value 0.15) (parent_dist 0.049999999999999989))
- -                     ((value 0.1) (parent_dist 0))))
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
-                     (parent
- -                    (((value 0.1) (parent_dist 0.10999999999999999)
- -                      (radius 0.090000000000000011) (tree <opaque>))
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.55) (parent_dist 0.049999999999999933))
- +                     ((value 0.62) (parent_dist 0.020000000000000018))
- +                     ((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0)
-                   (tree
- -                  ((is_leaf true)
- -                   (objects
- -                    (((value 0.55) (parent_dist 0.049999999999999933))
- -                     ((value 0.62) (parent_dist 0.020000000000000018))
- -                     ((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.32)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.1) (parent_dist 0.10999999999999999)
- -                 (radius 0.090000000000000011)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.01) (parent_dist 0.090000000000000011))
- -                     ((value 0.15) (parent_dist 0.049999999999999989))
- -                     ((value 0.1) (parent_dist 0))))
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
-                     (parent
- -                    (((value 0.1) (parent_dist 0.10999999999999999)
- -                      (radius 0.090000000000000011) (tree <opaque>))
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.32) (parent_dist 0.11000000000000001))
- -                     ((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.55) (parent_dist 0.049999999999999933))
- +                     ((value 0.62) (parent_dist 0.020000000000000018))
- +                     ((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0) (radius 0.18)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.55) (parent_dist 0.049999999999999933))
- -                     ((value 0.62) (parent_dist 0.020000000000000018))
- -                     ((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                    (((value 0.32) (parent_dist 0.18))
- +                     ((value 0.5) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.12)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.1) (parent_dist 0.10999999999999999)
- -                 (radius 0.090000000000000011)
- +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.12) (parent_dist 0.01999999999999999))
- -                     ((value 0.01) (parent_dist 0.090000000000000011))
- -                     ((value 0.15) (parent_dist 0.049999999999999989))
- -                     ((value 0.1) (parent_dist 0))))
- +                    (((value 0.23) (parent_dist 0.080000000000000016))
- +                     ((value 0.21) (parent_dist 0.06))
- +                     ((value 0.15) (parent_dist 0))
- +                     ((value 0.2) (parent_dist 0.050000000000000017))))
-                     (parent
- -                    (((value 0.1) (parent_dist 0.10999999999999999)
- -                      (radius 0.090000000000000011) (tree <opaque>))
- +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.32) (parent_dist 0.11000000000000001))
- -                     ((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.12) (parent_dist 0.01999999999999999))
- +                     ((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.55) (parent_dist 0.049999999999999933))
- +                     ((value 0.62) (parent_dist 0.020000000000000018))
- +                     ((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0) (radius 0.18)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.55) (parent_dist 0.049999999999999933))
- -                     ((value 0.62) (parent_dist 0.020000000000000018))
- -                     ((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                    (((value 0.32) (parent_dist 0.18))
- +                     ((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
-         (branching_factor 4) (distance <fun>) (eq <fun>))))
-      ((p 0.14)
-       (tree
-        ((root
-          ((is_leaf false)
-           (objects
- -          (((value 0.21) (radius 0.2)
- +          (((value 0.15) (radius 0.14)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.15) (parent_dist 0.06)
- +               (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
-                   (tree
- -                  ((is_leaf true) (objects (((value 0.15) (parent_dist 0))))
- +                  ((is_leaf true)
- +                   (objects
- +                    (((value 0.14) (parent_dist 0.0099999999999999811))
- +                     ((value 0.15) (parent_dist 0))))
-                     (parent
- -                    (((value 0.15) (parent_dist 0.06) (tree <opaque>)) <opaque>)))))
- -                ((value 0.14) (parent_dist 0.069999999999999979) (radius 0.13)
- +                    (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
- +                      (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.2) (parent_dist 0.050000000000000017) (radius 0.03)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.14) (parent_dist 0))
- -                     ((value 0.12) (parent_dist 0.020000000000000018))
- -                     ((value 0.01) (parent_dist 0.13))
- -                     ((value 0.1) (parent_dist 0.040000000000000008))))
- +                    (((value 0.23) (parent_dist 0.03))
- +                     ((value 0.21) (parent_dist 0.0099999999999999811))
- +                     ((value 0.2) (parent_dist 0))))
-                     (parent
- -                    (((value 0.14) (parent_dist 0.069999999999999979)
- -                      (radius 0.13) (tree <opaque>))
- +                    (((value 0.2) (parent_dist 0.050000000000000017)
- +                      (radius 0.03) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- +                ((value 0.1) (parent_dist 0.049999999999999989)
- +                 (radius 0.090000000000000011)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.32) (parent_dist 0.11000000000000001))
- -                     ((value 0.23) (parent_dist 0.020000000000000018))
- -                     ((value 0.21) (parent_dist 0))
- -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
- +                    (((value 0.12) (parent_dist 0.01999999999999999))
- +                     ((value 0.01) (parent_dist 0.090000000000000011))
- +                     ((value 0.1) (parent_dist 0))))
-                     (parent
- -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
- -                      (tree <opaque>))
- +                    (((value 0.1) (parent_dist 0.049999999999999989)
- +                      (radius 0.090000000000000011) (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
- -           ((value 0.6) (radius 0.35)
- +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
- +           ((value 0.5) (radius 0.70000000000000007)
-              (tree
-               ((is_leaf false)
-                (objects
- -               (((value 0.65) (parent_dist 0.050000000000000044)
- -                 (radius 0.15000000000000002)
- +               (((value 0.6) (parent_dist 0.099999999999999978)
- +                 (radius 0.050000000000000044)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.74) (parent_dist 0.089999999999999969))
- -                     ((value 0.65) (parent_dist 0))
- -                     ((value 0.8) (parent_dist 0.15000000000000002))))
- +                    (((value 0.55) (parent_dist 0.049999999999999933))
- +                     ((value 0.62) (parent_dist 0.020000000000000018))
- +                     ((value 0.65) (parent_dist 0.050000000000000044))
- +                     ((value 0.6) (parent_dist 0))))
-                     (parent
- -                    (((value 0.65) (parent_dist 0.050000000000000044)
- -                      (radius 0.15000000000000002) (tree <opaque>))
- +                    (((value 0.6) (parent_dist 0.099999999999999978)
- +                      (radius 0.050000000000000044) (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.9) (parent_dist 0.30000000000000004)
- -                 (radius 0.049999999999999933)
- +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.88) (parent_dist 0.020000000000000018))
- -                     ((value 0.95) (parent_dist 0.049999999999999933))
- -                     ((value 0.9) (parent_dist 0))))
- +                    (((value 0.74) (parent_dist 0.14))
- +                     ((value 0.88) (parent_dist 0))
- +                     ((value 0.8) (parent_dist 0.07999999999999996))
- +                     ((value 0.9) (parent_dist 0.020000000000000018))))
-                     (parent
- -                    (((value 0.9) (parent_dist 0.30000000000000004)
- -                      (radius 0.049999999999999933) (tree <opaque>))
- +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
- +                      (tree <opaque>))
-                       <opaque>)))))
- -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                ((value 0.5) (parent_dist 0) (radius 0.18)
-                   (tree
-                    ((is_leaf true)
-                     (objects
- -                    (((value 0.55) (parent_dist 0.049999999999999933))
- -                     ((value 0.62) (parent_dist 0.020000000000000018))
- -                     ((value 0.6) (parent_dist 0))
- -                     ((value 0.5) (parent_dist 0.099999999999999978))))
- +                    (((value 0.32) (parent_dist 0.18))
- +                     ((value 0.5) (parent_dist 0))))
- +                   (parent
- +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
- +                     <opaque>)))))
- +                ((value 0.95) (parent_dist 0.44999999999999996)
- +                 (tree
- +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
-                     (parent
- -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
- +                    (((value 0.95) (parent_dist 0.44999999999999996)
-                        (tree <opaque>))
-                       <opaque>)))))))
- -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
- -       (branching_factor 4) (distance <fun>) (eq <fun>)))) |}]
- +              (parent
- +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
- +                <opaque>)))))))))
- +       (branching_factor 4) (distance <fun>) (eq <fun>))))
- +    |}]
-  
-  let%test_unit "" =
-    let tree = create abs_dist in
[ERROR] The compilation of m_tree.0.1 failed at "dune build -p m_tree -j 71 @install @runtest".

#=== ERROR while compiling m_tree.0.1 =========================================#
# context              2.5.0 | linux/x86_64 | ocaml-base-compiler.5.4.1 | file:///home/opam/opam-repository
# path                 ~/.opam/5.4/.opam-switch/build/m_tree.0.1
# command              ~/.opam/opam-init/hooks/sandbox.sh build dune build -p m_tree -j 71 @install @runtest
# exit-code            1
# env-file             ~/.opam/log/m_tree-7-f1c088.env
# output-file          ~/.opam/log/m_tree-7-f1c088.out
### output ###
# File "test/test.ml", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/default/test/test.ml _build/default/test/test.ml.corrected
# diff --git a/_build/default/test/test.ml b/_build/default/test/test.ml.corrected
# index 0c69937..7865d89 100644
# --- a/_build/default/test/test.ml
# +++ b/_build/default/test/test.ml.corrected
# @@ -67,14 +67,15 @@ let%expect_test "" =
#    [%expect
#      {|
#      ((r
# +      ((value 1) (tree ((is_leaf true) (objects (((value 1) (parent_dist 0))))))))
# +     (r'
#        ((value 1.5)
#         (tree
#          ((is_leaf true)
# -         (objects (((value 1) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
# -     (r'
# -      ((value 2) (tree ((is_leaf true) (objects (((value 2) (parent_dist 0))))))))
# -     (o1 ((value 1) (parent_dist 0.5))) (o2 ((value 2) (parent_dist 0)))
# -     (o3 ((value 1.5) (parent_dist 0)))) |}]
# +         (objects (((value 2) (parent_dist 0.5)) ((value 1.5) (parent_dist 0))))))))
# +     (o1 ((value 1) (parent_dist 0))) (o2 ((value 2) (parent_dist 0.5)))
# +     (o3 ((value 1.5) (parent_dist 0))))
# +    |}]
#  
#  let%expect_test "" =
#    let tree = create ~branching_factor:2 abs_dist in
# @@ -88,17 +89,18 @@ let%expect_test "" =
#       ((root
#         ((is_leaf false)
#          (objects
# -         (((value 2) (radius 0.5)
# +         (((value 1.5) (radius 0.5)
#             (tree
#              ((is_leaf true)
#               (objects
# -              (((value 1.5) (parent_dist 0.5)) ((value 2) (parent_dist 0))))
# -             (parent (((value 2) (radius 0.5) (tree <opaque>)) <opaque>)))))
# -          ((value 1)
# +              (((value 1.5) (parent_dist 0)) ((value 1) (parent_dist 0.5))))
# +             (parent (((value 1.5) (radius 0.5) (tree <opaque>)) <opaque>)))))
# +          ((value 2)
#             (tree
# -            ((is_leaf true) (objects (((value 1) (parent_dist 0))))
# -             (parent (((value 1) (tree <opaque>)) <opaque>)))))))))
# -      (branching_factor 2) (distance <fun>) (eq <fun>))) |}]
# +            ((is_leaf true) (objects (((value 2) (parent_dist 0))))
# +             (parent (((value 2) (tree <opaque>)) <opaque>)))))))))
# +      (branching_factor 2) (distance <fun>) (eq <fun>)))
# +    |}]
#  
#  let points =
#    [
# @@ -173,210 +175,220 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.099999999999999978)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.099999999999999978)
# +               (((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent
# +               (((value 0.6) (radius 0.099999999999999978) (tree <opaque>))
# +                <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent
# -               (((value 0.5) (radius 0.099999999999999978) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.9)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.4)
# +               (((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent
# +               (((value 0.6) (radius 0.30000000000000004) (tree <opaque>))
# +                <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.9) (parent_dist 0.4))
# -                ((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent (((value 0.5) (radius 0.4) (tree <opaque>)) <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.95)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.1)
# +          (((value 0.6) (radius 0.35)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.5) (radius 0.44999999999999996)
# +               (((value 0.95) (parent_dist 0.35))
# +                ((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))
# +                ((value 0.5) (parent_dist 0.099999999999999978))))
# +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.44999999999999996))
# -                ((value 0.9) (parent_dist 0.4))
# -                ((value 0.6) (parent_dist 0.099999999999999978))
# -                ((value 0.5) (parent_dist 0))))
# -              (parent
# -               (((value 0.5) (radius 0.44999999999999996) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.8)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +  

<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build m_tree 0.1
+- 
- No changes have been performed
# To update the current shell environment, run: eval $(opam env)
            (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.6) (radius 0.35)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.8) (parent_dist 0.20000000000000007))
# +                ((value 0.95) (parent_dist 0.35))
# +                ((value 0.9) (parent_dist 0.30000000000000004))
# +                ((value 0.6) (parent_dist 0))))
# +              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.65)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.9) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# +               (((value 0.65) (parent_dist 0.25))
# +                ((value 0.8) (parent_dist 0.099999999999999978))
# +                ((value 0.9) (parent_dist 0))
# +                ((value 0.6) (parent_dist 0.30000000000000004))))
#                (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
#                  <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +           ((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.95)
# +            (tree
# +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.1)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.1) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.01)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.9) (radius 0.30000000000000004)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# +               (((value 0.65) (parent_dist 0.25))
# +                ((value 0.8) (parent_dist 0.099999999999999978))
# +                ((value 0.9) (parent_dist 0))
# +                ((value 0.6) (parent_dist 0.30000000000000004))))
#                (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# +               (((value 0.9) (radius 0.30000000000000004) (tree <opaque>))
#                  <opaque>)))))
# -           ((value 0.1) (radius 0.1)
# +           ((value 0.5)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.2) (parent_dist 0.1)) ((value 0.1) (parent_dist 0))))
# -              (parent (((value 0.1) (radius 0.1) (tree <opaque>)) <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +             ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +              (parent (((value 0.5) (tree <opaque>)) <opaque>)))))
# +           ((value 0.95)
# +            (tree
# +             ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +              (parent (((value 0.95) (tree <opaque>)) <opaque>)))))
# +           ((value 0.2) (radius 0.19)
#              (tree
#               ((is_leaf true)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# -              (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# -                <opaque>)))))))))
# +               (((value 0.01) (parent_dist 0.19))
# +                ((value 0.15) (parent_dist 0.050000000000000017))
# +                ((value 0.2) (parent_dist 0)) ((value 0.1) (parent_dist 0.1))))
# +              (parent (((value 0.2) (radius 0.19) (tree <opaque>)) <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.21)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.0099999999999999811)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.0099999999999999811) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.06)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.06) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.25))
# +                     ((value 0.8) (parent_dist 0.099999999999999978))
# +                     ((value 0.9) (parent_dist 0))
# +                     ((value 0.6) (parent_dist 0.30000000000000004))))
# +                   (parent
# +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.23)
# @@ -384,45 +396,64 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.020000000000000018)
# -            (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.23) (parent_dist 0.020000000000000018))
# -                ((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.25))
# +                     ((value 0.8) (parent_dist 0.099999999999999978))
# +                     ((value 0.9) (parent_dist 0))
# +                     ((value 0.6) (parent_dist 0.30000000000000004))))
# +                   (parent
# +                    (((value 0.9) (parent_dist 0.4) (radius 0.30000000000000004)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.88)
# @@ -430,46 +461,74 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.1) (radius 0.090000000000000011)
# -            (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.01) (parent_dist 0.090000000000000011))
# -                ((value 0.15) (parent_dist 0.049999999999999989))
# -                ((value 0.1) (parent_dist 0))))
# -              (parent
# -               (((value 0.1) (radius 0.090000000000000011) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.9) (radius 0.049999999999999933)
# +          (((value 0.15) (radius 0.14)
#              (tree
# -             ((is_leaf true)
# -              (objects
# -               (((value 0.88) (parent_dist 0.020000000000000018))
# -                ((value 0.95) (parent_dist 0.049999999999999933))
# -                ((value 0.9) (parent_dist 0))))
# -              (parent
# -               (((value 0.9) (radius 0.049999999999999933) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.21) (radius 0.020000000000000018)
# -            (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.23) (parent_dist 0.020000000000000018))
# -                ((value 0.21) (parent_dist 0))
# -                ((value 0.2) (parent_dist 0.0099999999999999811))))
# -              (parent
# -               (((value 0.21) (radius 0.020000000000000018) (tree <opaque>))
# -                <opaque>)))))
# -           ((value 0.8) (radius 0.30000000000000004)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
# +                   (parent
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
# +                     <opaque>)))))))
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
# -             ((is_leaf true)
# +             ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.15000000000000002))
# -                ((value 0.8) (parent_dist 0))
# -                ((value 0.6) (parent_dist 0.20000000000000007))
# -                ((value 0.5) (parent_dist 0.30000000000000004))))
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.88) (parent_dist 0.38) (radius 0.07999999999999996)
# +                 (tree
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
# +                   (parent
# +                    (((value 0.88) (parent_dist 0.38)
# +                      (radius 0.07999999999999996) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.5) (parent_dist 0)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
# +                      (tree <opaque>))
# +                     <opaque>)))))))
#                (parent
# -               (((value 0.8) (radius 0.30000000000000004) (tree <opaque>))
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
#                  <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.74)
# @@ -477,457 +536,490 @@ let%expect_test "" =
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.62)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.55)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.020000000000000018)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0)
#                   (tree
# -                  ((is_leaf true)
# -                   (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                  ((is_leaf true) (objects (((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (tree <opaque>)) <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.32)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.12)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.1) (parent_dist 0.10999999999999999)
# -                 (radius 0.090000000000000011)
# +               (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.12) (parent_dist 0.01999999999999999))
# -                     ((value 0.01) (parent_dist 0.090000000000000011))
# -                     ((value 0.15) (parent_dist 0.049999999999999989))
# -                     ((value 0.1) (parent_dist 0))))
# +                    (((value 0.23) (parent_dist 0.080000000000000016))
# +                     ((value 0.21) (parent_dist 0.06))
# +                     ((value 0.15) (parent_dist 0))
# +                     ((value 0.2) (parent_dist 0.050000000000000017))))
#                     (parent
# -                    (((value 0.1) (parent_dist 0.10999999999999999)
# -                      (radius 0.090000000000000011) (tree <opaque>))
# +                    (((value 0.15) (parent_dist 0) (radius 0.080000000000000016)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.12) (parent_dist 0.01999999999999999))
# +                     ((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
#         (branching_factor 4) (distance <fun>) (eq <fun>))))
#      ((p 0.14)
#       (tree
#        ((root
#          ((is_leaf false)
#           (objects
# -          (((value 0.21) (radius 0.2)
# +          (((value 0.15) (radius 0.14)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.15) (parent_dist 0.06)
# +               (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
#                   (tree
# -                  ((is_leaf true) (objects (((value 0.15) (parent_dist 0))))
# +                  ((is_leaf true)
# +                   (objects
# +                    (((value 0.14) (parent_dist 0.0099999999999999811))
# +                     ((value 0.15) (parent_dist 0))))
#                     (parent
# -                    (((value 0.15) (parent_dist 0.06) (tree <opaque>)) <opaque>)))))
# -                ((value 0.14) (parent_dist 0.069999999999999979) (radius 0.13)
# +                    (((value 0.15) (parent_dist 0) (radius 0.0099999999999999811)
# +                      (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.2) (parent_dist 0.050000000000000017) (radius 0.03)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.14) (parent_dist 0))
# -                     ((value 0.12) (parent_dist 0.020000000000000018))
# -                     ((value 0.01) (parent_dist 0.13))
# -                     ((value 0.1) (parent_dist 0.040000000000000008))))
# +                    (((value 0.23) (parent_dist 0.03))
# +                     ((value 0.21) (parent_dist 0.0099999999999999811))
# +                     ((value 0.2) (parent_dist 0))))
#                     (parent
# -                    (((value 0.14) (parent_dist 0.069999999999999979)
# -                      (radius 0.13) (tree <opaque>))
# +                    (((value 0.2) (parent_dist 0.050000000000000017)
# +                      (radius 0.03) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# +                ((value 0.1) (parent_dist 0.049999999999999989)
# +                 (radius 0.090000000000000011)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.32) (parent_dist 0.11000000000000001))
# -                     ((value 0.23) (parent_dist 0.020000000000000018))
# -                     ((value 0.21) (parent_dist 0))
# -                     ((value 0.2) (parent_dist 0.0099999999999999811))))
# +                    (((value 0.12) (parent_dist 0.01999999999999999))
# +                     ((value 0.01) (parent_dist 0.090000000000000011))
# +                     ((value 0.1) (parent_dist 0))))
#                     (parent
# -                    (((value 0.21) (parent_dist 0) (radius 0.11000000000000001)
# -                      (tree <opaque>))
# +                    (((value 0.1) (parent_dist 0.049999999999999989)
# +                      (radius 0.090000000000000011) (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.21) (radius 0.2) (tree <opaque>)) <opaque>)))))
# -           ((value 0.6) (radius 0.35)
# +              (parent (((value 0.15) (radius 0.14) (tree <opaque>)) <opaque>)))))
# +           ((value 0.5) (radius 0.70000000000000007)
#              (tree
#               ((is_leaf false)
#                (objects
# -               (((value 0.65) (parent_dist 0.050000000000000044)
# -                 (radius 0.15000000000000002)
# +               (((value 0.6) (parent_dist 0.099999999999999978)
# +                 (radius 0.050000000000000044)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.74) (parent_dist 0.089999999999999969))
# -                     ((value 0.65) (parent_dist 0))
# -                     ((value 0.8) (parent_dist 0.15000000000000002))))
# +                    (((value 0.55) (parent_dist 0.049999999999999933))
# +                     ((value 0.62) (parent_dist 0.020000000000000018))
# +                     ((value 0.65) (parent_dist 0.050000000000000044))
# +                     ((value 0.6) (parent_dist 0))))
#                     (parent
# -                    (((value 0.65) (parent_dist 0.050000000000000044)
# -                      (radius 0.15000000000000002) (tree <opaque>))
# +                    (((value 0.6) (parent_dist 0.099999999999999978)
# +                      (radius 0.050000000000000044) (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.9) (parent_dist 0.30000000000000004)
# -                 (radius 0.049999999999999933)
# +                ((value 0.88) (parent_dist 0.38) (radius 0.14)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.88) (parent_dist 0.020000000000000018))
# -                     ((value 0.95) (parent_dist 0.049999999999999933))
# -                     ((value 0.9) (parent_dist 0))))
# +                    (((value 0.74) (parent_dist 0.14))
# +                     ((value 0.88) (parent_dist 0))
# +                     ((value 0.8) (parent_dist 0.07999999999999996))
# +                     ((value 0.9) (parent_dist 0.020000000000000018))))
#                     (parent
# -                    (((value 0.9) (parent_dist 0.30000000000000004)
# -                      (radius 0.049999999999999933) (tree <opaque>))
# +                    (((value 0.88) (parent_dist 0.38) (radius 0.14)
# +                      (tree <opaque>))
#                       <opaque>)))))
# -                ((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                ((value 0.5) (parent_dist 0) (radius 0.18)
#                   (tree
#                    ((is_leaf true)
#                     (objects
# -                    (((value 0.55) (parent_dist 0.049999999999999933))
# -                     ((value 0.62) (parent_dist 0.020000000000000018))
# -                     ((value 0.6) (parent_dist 0))
# -                     ((value 0.5) (parent_dist 0.099999999999999978))))
# +                    (((value 0.32) (parent_dist 0.18))
# +                     ((value 0.5) (parent_dist 0))))
# +                   (parent
# +                    (((value 0.5) (parent_dist 0) (radius 0.18) (tree <opaque>))
# +                     <opaque>)))))
# +                ((value 0.95) (parent_dist 0.44999999999999996)
# +                 (tree
# +                  ((is_leaf true) (objects (((value 0.95) (parent_dist 0))))
#                     (parent
# -                    (((value 0.6) (parent_dist 0) (radius 0.099999999999999978)
# +                    (((value 0.95) (parent_dist 0.44999999999999996)
#                        (tree <opaque>))
#                       <opaque>)))))))
# -              (parent (((value 0.6) (radius 0.35) (tree <opaque>)) <opaque>)))))))))
# -       (branching_factor 4) (distance <fun>) (eq <fun>)))) |}]
# +              (parent
# +               (((value 0.5) (radius 0.70000000000000007) (tree <opaque>))
# +                <opaque>)))))))))
# +       (branching_factor 4) (distance <fun>) (eq <fun>))))
# +    |}]
#  
#  let%test_unit "" =
#    let tree = create abs_dist in

'opam reinstall --with-test --verbose m_tree.0.1' failed.
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
"/usr/bin/env" "bash" "-c" "opam reinstall --with-test --verbose m_tree.0.1;
        res=$?;
        test "$res" != 31 && exit "$res";
        export OPAMCLI=2.0;
        build_dir=$(opam var prefix)/.opam-switch/build;
        failed=$(ls "$build_dir");
        partial_fails="";
        for pkg in $failed; do
          if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-13\""; then
            echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.";
          fi;
          test "$pkg" != 'm_tree.0.1' && partial_fails="$partial_fails $pkg";
        done;
        test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}";
        exit 1" failed with exit status 1
2026-04-13 15:36.01: Job failed: Failed: Build failed
2026-04-13 15:36.01: Log analysis:
2026-04-13 15:36.01: >>> 
[ERROR] The compilation of m_tree.0.1 failed at "dune build -p m_tree -j 71 @install @runtest".
 (score = 20)
2026-04-13 15:36.01: >>> 
[ERROR] The compilation of m_tree.0.1 failed at "dune build -p m_tree -j 71 @install @runtest".
 (score = 20)
2026-04-13 15:36.01: The compilation of m_tree.0.1 failed at "dune build -p m_tree -j 71 @install @runtest".