srecord ReplaceSuffixIC(S oldSuffix, S newSuffix) extends F1<S> {
  S get(S s) {
    // There are different ways to handle odd cases
    ret dropSuffixIC(oldSuffix, s) + newSuffix;
  }
  
  toString { ret sfu(this); }
}