I need to create an infinite sequence containing a subsequence of elements which repeats infinitely.

```
[1; 2; 3; 4; 1; 2; 3; 4; 1; 2; 3; 4; ...]

```

So I wrote this:

```
let l = [1; 2; 3; 4]
let s = seq { while true do yield! l }

```

Is there a standard way (function) to do this?