some StateT experiments