character a,b;1 a=b;call fget(b,n);if(a>="".or.b>"h")print'(a$)',b;goto(1)1-n;end