run2016 :: Int -> Int -> IO ()
run2016 day pbNumber = case day * 10 + pbNumber of
    111 -> Y2016D11.answer1
    112 -> Y2016D11.answer2
    151 -> Y2016D15.answer1
    152 -> Y2016D15.answer2
    192 -> Y2016D19.answer2
    221 -> Y2016D22.answer1 >>= print
    222 -> Y2016D22.answer2 >>= print
    _   -> print "Invalid puzzle number"
run2016 :: Int -> Int -> IO ()
run2016 day pbNumber = case day * 10 + pbNumber of
    111 -> Y2016D11.answer1
    112 -> Y2016D11.answer2
    151 -> Y2016D15.answer1
    152 -> Y2016D15.answer2
    192 -> Y2016D19.answer2
    221 -> Y2016D22.answer1 >>= print
    222 -> Y2016D22.answer2 >>= print
    _   -> print "Invalid puzzle number"
run2016 day pbNumber = case day * 10 + pbNumber of
    111 -> Y2016D11.answer1
    112 -> Y2016D11.answer2
    151 -> Y2016D15.answer1
    152 -> Y2016D15.answer2
    192 -> Y2016D19.answer2
    221 -> Y2016D22.answer1 >>= print
    222 -> Y2016D22.answer2 >>= print
    _   -> print "Invalid puzzle number"