Функциональное программирование на F# [вычисление простых чисел]

(*
    функциональная версия вычисления 
    последовательности
    простых чисел
*)
let primes max =
    [
        for i = 1 to max do

            let factors n = [
                for j = 1 to n do
                    if n % j = 0 then yield j
            ]

            if 3 > List.length (factors i) then
                yield i
    ]

/// используя композицию 2-х функций 
/// создаем 3-ю для вывода значений на экран
let printNPrimes = primes >> List.iter (printfn "%d") 

printNPrimes 10