minor adjustments
created state monad object!