An implementation of the surreal numbers in Haskell. Extremely inefficient.