static IPred<S> cic$(S suffix) {
  ret s -> cic(s, suffix);
}