let
range xs =
Stream
.
Infix
.(0 --^ (length xs))