char*p,*q,s[99];F(g,a,f){for(a=*p--;g--;g?*--q=a:0)a<48?f=*p/47+42/ *p