(DEFUN COUNTATOMS (S) , (COND , , ((NULL S) 0) , , ((ATOM S) 1) , , (T , , , (PLUS , , , , (COUNTATOMS (CAR S)) , , , , (COUNTATOMS (CDR S)) , , , ,,,) , , ,,,) , ,,,) ,,,)