Converted to FP Complete Haskell Center
purified generator