/*
** return "true" if c is upper-case alphabetic
*/
isupper(c) int c; {
  return (c <= 'Z' && c >= 'A');
  }