Lisp program for calculating books in cad