dropEvery :: [a] -> Int -> [a]
dropEvery xs c = [x| (x,y) <- (zip xs [1..]), y `mod` c /= 0 ]