Countdown solver in Haskell