main :: IO ()
main = putStrLn $ display (countdown5 831 [1,3,7,10,25,50])
main :: IO ()
main = putStrLn $ display (countdown5 831 [1,3,7,10,25,50])
main = putStrLn $ display (countdown5 831 [1,3,7,10,25,50])