parseInput :: String -> Deck
parseInput l = let  x = splitOn "\n\n" l
                    a = lines (x !! 0)
                    b = lines (x !! 1)
                    a' = map (\x -> read x :: Int) (tail a)
                    b' = map (\x -> read x :: Int) (tail b)
                        in (a',b')

computeWinning :: [Int] -> Int
computeWinning x = sum $ zipWith (*) (reverse x) [1..]