double newton( double arg ) {\fbox{newton}
double r=arg, x=1, eps=0.0001; while( fabs(r - x) > eps ) { r = x; x = r - (r * r - arg) / (2 * r); } return r; }
#!/usr/prac/se/bin/hush -f proc generate {} { .m configure -text [.s get] } scale .s -label "seed" -orient horizontal -length 256 -relief sunken message .m -width 256 -aspect 200 pack .m .s -fill x bind .s{ generate }
#include "hush.h" double newton(double arg);[1]
char* ftoa( double f);to convert float to char*