let interval a b =
  Array.init (b-a) (fun x -> x+a)