let suffix t n = if n > t.len then failwith "Substring.suffix" else { base = t.base; pos = t.pos + t.len - n; len = n; }