Can convert Modify[A] to ModifyAndCalc[A, B]