sieve [] = [] sieve [a] = [] sieve (a:b:x) = b:sieve (x)