struct
  include Core.Std.Array
  let range xs = Stream.Infix.(0 --^ (length xs))
end