fpprintprec with bigfloats

code should have x -> fpp of course:

(%i15) bfprint(bf,fpp):=
  block([fpprec, fpprintprec ],
        fpprec : fpp+2,
        fpprintprec:fpp,
        print(" ",fpp,"  ",bf) )$

(%i16) for x:8 thru 21 do bfprint(bf1,x)$
  8    2.3504023b0 
  9    2.35040238b0 
  10    2.350402387b0 
  11    2.3504023872b0 
  12    2.35040238728b0 
  13    2.350402387287b0 
  14    2.3504023872876b0 
  15    2.3504023872876b0 
  16    2.350402387287602b0 
  17    2.3504023872876029b0 
  18    2.35040238728760291b0 
  19    2.350402387287602913b0 
  20    2.3504023872876029137b0 
  21    2.35040238728760291376b0 

Ted Woollett