srecord ReplaceSuffix(S oldSuffix, S newSuffix) extends F1<S> {
  S get(S s) {
    // There are different ways to handle odd cases
    ret dropSuffix(oldSuffix, s) + newSuffix;
  }
}