(@ +-
    (@ write-distance *experiment arg +-
        ...
    +
        {experiment} _
        {write-parameters} arg
    )

    (# print exp-distances -
        (# walk number `MAX_EXPERIMENTS (@ number current-point +-
                                            (# write-distance *exp current-point -
                                                (exp-distances.experiments.exp-number .exp ..)
                                            )
                                        )
        -
            (% -exp-distances > ._ ..)
        )
    )
)
