frcont(x,n):=block([k:0,lf:[],f,ff],f:sqrt(x),
  for k thru n do (ff:floor(f),lf:endcons(ff,lf),f:trigrat(1/(f-ff)) ),
  lf)$