main :: IO ()
main = print $ take 100 prostie

prostoe :: Integer -> Bool
prostoe chislo = foldr (\prostoe neobosrams -> chislo < prostoe*prostoe || rem chislo prostoe /= 0 && neobosrams) True prostie

prostie :: [Integer]
prostie = 2:[chislo | chislo <- [3,5..], prostoe chislo]