/ State / withState
withState
1  λ(s : Type) → ./../StateT/withState s ./../Identity/Type