%%HP: T(1)A(G)F(,);
 GRAD "Dc Ze" ""
INPUT OBJ 'Z' STO
'D' STO 'D*(6378000,+
Z)/6378000,' NUM
"De" TAG { D Z }
PURGE
