Cyclone Scheme  0.9
int binstr2int ( const char *  str)