attempting to get des to work in r7rs