BOOM nice haskell example