in hxt-monad IOStateSequence added