Haskell Augmentation of