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