TYPE 
PREFIX(min) (TYPE data[], int len)
{
  int i;
  TYPE smallest = data[0];
  for (i = 1; i < len; i++)
    {
      if (LESS_THAN (data[i], smallest))
        smallest = data[i];
    }
  return smallest;
} // PREFIX(min)