Converted to FP Complete Haskell Center
Initial code import from classy-prelude