Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз?

chk :: Int -> Int -> Int -> Bool
chk 0 _ _ = False
chk n a k | (c==a) && (k==1) = True
          | (c==a) = chk q a (k+1)
          | otherwise = chk q a k
            where c = n `mod` 10
                  q = n `div` 10

chk' :: Int -> Int -> Bool
chk' n a = (length s) - (length (filter (\ c -> (ord c)-(ord '0') /= a) s)) >= 2
           where s=show n

myfun :: (Num a, Eq a, Integral b, Eq b) => b -> a -> b -> Bool
myfun dig = go 
  where go _ 0 = False
        go n v = let (d,r)= v `divMod` 10 in
                 if r == dig then (n == 1) || go (n-1) d
                             else go n d 
 
main = print $ myfun 6 2 12345678961  -- есть ли две шестёрки в числе?

chk :: Int -> Int -> Int -> Bool
chk 0 _ _ = False
chk n a k | (c==a) && (k>1) = True
          | (c==a) = chk q a (k+1)
          | otherwise = chk q a k
            where c = n `mod` 10
                  q = n `div` 10
 
chk' :: Int -> Int -> Bool
chk' n a = (length s) - (length (filter (\ c -> (ord c)-(ord '0') /= a) s)) > 2
           where s=show n

myfun :: (Num a, Eq a, Integral b, Eq b) => b -> a -> b -> Bool
myfun dig = go 
  where go _ 0 = False
        go n v = let (d,r)= v `divMod` 10 in
                 if r == dig then (n == 0) || go (n-1) d
                             else go n d

myfun :: Show a => a -> Int -> a -> Bool
myfun dig n = let c = head $ show dig in
              (n<) . length . filter (==c) . show

chk' n a = length (filter (==intToDigit a) $ show n) > 2

task :: Int -> Int -> Bool
task a = (>2) . length . filter (==a) . fmap (read . return) . show