# Pastebin qIkpC0Gr
part1 :: Input -> Int
part1 = snd . getMin . winners Min

part2 ::Input ->  Int
part2 = snd . getMax . winners Max

biggun :: IO (Int,Int)
biggun = ex . winners b <$> parseFile (parseInput 15) "input/day4.big"
  where
    b x = (Min x, Max x)
    ex (Min (_,x), Max(_,y)) = (x,y)