%%HP: T(1)A(G)F(,);
 GRAD "Dutm K" ""
INPUT OBJ 'KK' STO
'D' STO 'D/KK' NUM
"Dc" TAG { D KK }
PURGE
