<*> for StateT monad