vardef C.ao(expr n) = save p,q; picture p,q; p="a"infont n; q=char202 infont n; addto p also q shifted(xpart(urcorner p-urcorner q)/2,.05*fontsize n); p enddef;