countdown numbers game solver in haskell