static double frac(double d) {
  ret fraction(d);
}