Flatten array

        let categories = Seq.collect (fun x -> x) (query {
            for entry in entries do
            where (entry.Categories.Length > 0)
            select (Array.toSeq entry.Categories)
        })