import Data.List import Data.Maybe main = getLine >>= putStrLn . fromMaybe "Impossible" . fmap pure . solve solve :: String -> Maybe Char solve s = let g = group . sort $ s in if any ((>=3) . length) g || length g /= 7 then Nothing else Just . head . head . filter ((==1) . length) $ g