Implementing Unsure Calculator in 100 lines of Haskell