let neighbourhood_distance = match cp_neighbourhood_distance#get with
    | "lone" -> L_one
    | "linf" -> L_inf
    | s -> failwith (s ^ " isn't a valid neighbourhood_distance.")