sclass WithName extends Var { S name; *() {} *(A value) { super(value); } *(S *name, A value) { super(value); } toString { if (empty(name)) ret super.toString(); ret name + ": " + super.toString(); } }