// Использование генератора списков для нахождения простых чисел
let primesUnder max =
    [
        for n in 1 .. max do
            let factorsOfN =
                [
                    for i in 1 .. n do
                        if n % i = 0 then
                            yield i
                ]
                // n – простое число, если для него имеется
                // всего два делителя, 1 и n
            if List.length factorsOfN = 2 then
                yield n
    ]

let ``prost))))))30`` = primesUnder 30