%%HP:;
@ FIQ, Feet & Inches ->Q
@ by Aaron Boonshoft
\<< \->NUM IF DUP TYPE THEN '1_in' CONVERT '1_in' /
ELSE SWAP 12 * + END DUP SIGN SWAP ABS DUP 12 / IP
'1_ft' * SWAP 12 MOD DUP IP SWAP FP \->Q + '1_in' *
= { '&A=&B' '&A+&B' } \|vMATCH DROP * \>>