main :: IO ()
main = (bitraverse_ print print . (part1 &&& part2)) =<< input
main :: IO ()
main = (bitraverse_ print print . (part1 &&& part2)) =<< input
main = (bitraverse_ print print . (part1 &&& part2)) =<< input