import Data.List

main = do
    print (day4 p [130254..678275])
    print (day4 p' [130254..678275])

day4 f = length . filter f . map show

p x | sort x /= x = False
    | nub x == x = False
    | otherwise = True

p' x = 2 `elem` (map length $ group x) && p x