let r = get in begin set 4; set 1; r end