let bounded () =
    let neighbourhood_of_zero = Femtolib.List.init (2*range) (fun i -> i - range + (if i>=range then 1 else 0)) in
    Array.init length (fun i ->
      neighbourhood_of_zero
      |> List.map ((+) i)
      |> List.filter (fun j -> j>=0 && j<length)
      |> Array.of_list)