(DE COUNTATOMS (S) , (COND , , ((NULL S) 0) , , ((ATOM S) 1) , , (T (APPLY 'PLUS (MAPCAR S 'COUNTATOMS))) , ,,,) ,,,)