/* Print a complex number */
void
complex_print(vcomplex *c, FILE *fp)
{
    v_print_start();
    v_push_indent();

    v_print_type(vcomplex_type, c, fp);

    v_indent(fp);
    fprintf(fp, "REAL => %g\n", c->real);

    v_indent(fp);
    fprintf(fp, "IMAG => %g\n", c->imag);

    v_pop_indent();
    v_print_finish();
}