bell|>Seq.take 15|>Seq.iter(fun n->printf "%A " (List.head n));printfn ""