#light

open System
open System.Collections.Generic
open TestLib

let MyMap = Map [1, seq [1;2;4]; 2, seq [5;6;7] ]
let MySeq = MySharp.test_fun(MyMap)
let len = Seq.length MySeq

let filteredVariants_f (intersection : IDictionary<int, int seq>)
                       (reserv : #seq<_> * #seq<_>)
                       (acc : IDictionary<int, int>) =
    let variants = MySharp.test_fun intersection
    match Seq.length variants with
        | 0 -> Seq.empty
        | _ ->
            let filteredVariants =
                Seq.collect
                    (fun (vrnt : int array) ->  vrnt)
                    variants
            filteredVariants

let t = filteredVariants_f MyMap ([],[]) (Map [1,1; 2,2])

[<EntryPoint>]
let main _ =
  printfn "%A" t
  Console.ReadLine()
  0