Converted to FP Complete Haskell Center