haskell shitwork