(Ineffective) zip using fold

zip.fs

let zip xs ys =
    let step acc x =
        match acc with
        | (rs, y::ys) -> ((x,y)::rs, ys)
        | _ -> acc
    Seq.fold step ([], ys) xs
    |> fst
    |> List.rev