doing some haskell + todos