Converted to FP Complete Haskell Center
code drop