/*
** lexorder(c1, c2) - Return a number <0, 0, or >0
**                as c1 is <, =, or > c2, based on
**                based on lexicographical (dictionary)
**                collating sequence.
*/
char _lex[128] = {
    /**** NUL to / ****/
    000,001,002,003,004,005,006,007,008,009,
    010,011,012,013,014,015,016,017,018,019,
    020,021,022,023,024,025,026,027,028,029,
    030,031,032,033,034,035,036,037,038,039,
    040,041,042,043,044,045,046,047,
    /**** 0 to 9 ****/
    065,066,067,068,069,070,071,072,073,074,
    /**** : ; < = > ? @ ****/
    048,049,050,051,052,053,054,
    /**** A to Z ****/
    075,076,077,078,079,080,081,082,083,084,085,086,087,
    088,089,090,091,092,093,094,095,096,097,098,099,100,
    /**** [ \ ^ _ ` ****/
    055,056,057,058,059,060,
    /**** a to z ****/
    075,076,077,078,079,080,081,082,083,084,085,086,087,
    088,089,090,091,092,093,094,095,096,097,098,099,100,
    /**** { | } ~ ****/
    061,062,063,064,
    /**** DEL ****/
    101
    };

lexorder(c1, c2) char c1, c2; {
  return(_lex[c1] - _lex[c2]);
  }