/*
 *
 * $Id: even,v 1.1 1995/06/10 16:06:51 armando Exp $
 * 
 * $Log: even,v $
 * Revision 1.1  1995/06/10 16:06:51  armando
 * Reinserted into the main trunk
 *
 * Revision 1.1  1995/06/09  16:00:58  armando
 * Added to the IFFEXAMPLE branch
 *
 * Revision 1.1.4.4  1995/05/29  17:10:58  armando
 * Comment char changed
 *
 */

even(x)<==>term_of(even) of x.
