printfn "%d" (uT 3000000|>Array.filter id|>Array.length)