Attempting Sequence 'merge' - look at LazyList in F# power pack for other possibilities

gistfile1.txt

module Seq

#light

let rec merge s1 s2 =
    seq {
        yield s1 |> Seq.head
        yield s2 |> Seq.head
        yield! merge s1 s2
    }