%%HP: T(1)A(D)F(.);
 'C' STO 'B' STO
'A' STO 'S=(A+B+C)/
2' DEFINE '(S*(S-A
)*(S-B)*(S-C))'
NUM { A B C S }
PURGE 'AREA' TAG

