finished more haskell