%%HP: T(3)A(D)F(.);
\<< \->STR DUP
  IF "'" POS 1 ==
  THEN DUP SIZE 1 - 2 SWAP SUB
  END
\>>

@ OB->S (OBject-to-String) by Joseph K. Horn
@ Same as native ->STR function, except for names & algebraics,
@ which get their leading & trailing single-quotes removed.
@ Thus 'FRED' turns into "FRED", not "'FRED'".