LISP written CAD to judge the multi-line clockwise or counterclockwise program