import Data.List

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

day4 p = sum . map (fromEnum . p . show)

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

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