->
  write-distance = *experiment arg ->
    ...
  _
    experiment : _
    arg : write-parameters
  ;

  - print exp-distances
  ' - walk exp-number `MAX_EXPERIMENTS ( exp-number current-point ->
                                                                     - write-distance *exp current-point 
                                                                     ' exp = exp-distances.experiments.exp-number ..
                                       )
  ' exp-distances : _ = . ..
;
