module Main (main) where

import qualified Data.List.NonEmpty as NE
import qualified Data.Set as Set

import Input
import Util


main :: IO ()
main = do
    input <- getInput 6
    let groups = map (map Set.fromList) (NE.toList (splitOn null input))
    print (sum (map (Set.size . Set.unions) groups))
    print (sum (map (Set.size . foldl1 Set.intersection) groups))