(define atomic-item? ; TYPE: (-> (datum) boolean) (lambda (x) (not (or (pair? x) (null? x)))))