more tinkering with haskell