Adding IO operations in haskell