static char stringToChar(S s) {
  if (l(s) != 1) fail("bad stringToChar: " + s);
  ret firstChar(s);
}