skloniN :: Int -> Int -> [Int] -> [Int]
skloniN _ _ [] = []
skloniN n t (x:xs) 
    | t `mod` n /= 0 = x : skloniN n (t+1) xs
    | otherwise = skloniN n (t+1) xs

skloni :: Int -> [Int] -> [Int]
skloni n xs = skloniN n 1 xs

daLiJePalindrom :: [Int] -> Bool
daLiJePalindrom xs = xs == (reverse xs)

ostaviPalindrome :: [[Int]] -> [[Int]]
ostaviPalindrome xs = [x | x <- xs, daLiJePalindrom x]