DES.R file from book