소수 구하기

let steive :: [Int] -> [Int]
    steive (x:xs) = x : steive [n | n <- xs, n `mod` x /= 0] 
let primes :: [Int]
    primes x =