srecord Ratio(double numerator, double denominator) {
  *(double numerator) { this(numerator, 1); }
  
  double get() { ret doubleRatio(numerator, denominator); }
  
  toString {
    ret numerator+"/"+denominator
      + "="
      + (denominator == 0 ? "oops" : str(get()));
  }
}