static S adjectiveToAdverb(S s) {
  s = replaceSuffixIC("y", "i", s);
  s = replaceSuffixIC("c", "cal", s);
  s = dropSuffixIC("le", s);
  ret s + "ly";
}