character c;1 goto(1)fget(c)**fput(c)+fget(c);end