define aggregate bletch (sfunc1 = int4mul, sfunc2 = int4inc, finalfunc =        int4div, initcond1 = "1", initcond2 = "0")
\g

retrieve (randomnum = bletch{emp.salary where emp.salary <= 3000})
\g
