/*
 * This is a comment.
 *
 * $Header: /usr/local/devel/postgres/src/examples/RCS/chapter10,v 1.1 1994/03/11 10:58:25 aoki Exp $
 */

define operator ## (arg2 = int4,
                      associativity = right,
                      procedure = int4fac)
\g

define operator ## (arg1 = int4,
                      associativity = left,
                      procedure = int4um)
\g

define operator ## (arg1 = int4,
                      arg2 = int4,
                      procedure = int4pl,
                      commutator = ## )
\g

retrieve (four_factorial = ## 4,
            minus_five = ## 5::int2,
            minus_four = 4 ##,
            four_plus_four = 4 ## 4)
\g
