More variation on trivial Haskell-based implementations