import Data.List


main :: IO ()
main =
  do
    c <- readFile "in4.txt"
    putStrLn "Part 1"
    print $ length [j | j <- lines c, let k = words j, (length k) == (length $ nub k) ]
    putStrLn "Part 2"
    print $ length [j | j <- lines c, let k = words j, (length k) == (length $ nub $ map sort k) ]