srecord Complex(double re, double im) {
  toString {
    if (im != 0)
      ret re == 0 ? im + "i" : re + "+" + im + "i";
    else
      ret str(re);
  }
}