fork download
  1. let foo = Seq.zip [3; 4; 89] (
  2. seq {
  3. let i = ref 0
  4. while true do
  5. let x = !i
  6. i := !i + 1
  7. yield x
  8. }
  9. )
  10.  
  11. printfn "%A" foo
Success #stdin #stdout 0.2s 12656KB
stdin
Standard input is empty
stdout
seq [(3, 0); (4, 1); (89, 2)]