vardef C.ff(expr n) =
 save p;
 picture p; p="f"infont n;
 addto p also "f"infont n shifted(xpart urcorner p-fontsize n/20,0);
 p enddef;
