Create cdt3p1.lisp