.de (z \" *** begin floating keep
.de )z \" *** end floating keep
. nr dn +(\\n(ppu*\\n($ru)/2u+\\n(zsu
.ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a) \
.da \\*(|x \" copy to save macro
\!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu
.rm |k \" remove the temp macro
.de @k \" --- output floating keep