sclass TimeRange extends Concept {
  long from;
  settable long to;
  
  *() {}
  *(long *from) { to = from; }
  
  void addNow() {
    cset(this, to := max(to, now()));
  }
}