<> <> <> DIRECTORY Histograms, Real; HistogramsExtras: CEDAR DEFINITIONS = {OPEN Histograms; fullRealRange1: RealRange1 ~ [-Real.LargestNumber, Real.LargestNumber]; fullRealRange2: RealRange2 ~ ALL[fullRealRange1]; Enumerate: PROC [h: Histogram, range: RealRange2 _ fullRealRange2, Consume: PROC [x, y: REAL, n: CARD] RETURNS [BOOL--TRUE to stop--]] RETURNS [found: BOOL, x, y: REAL]; Project: PROC [h: Histogram, cx, cy: REAL] RETURNS [Histogram]; < pairs, returns a one-dimensional histogram of pairs.>> }.