%
% convert string info
%
"Data" \_
"stringres " log()
15 left

"""" "-" replall
"'" "-" replall
length
empty tuck
countup
{
 dup2nd 1 mid asc
 dup 0x21 lt
 {
  pop 0x2D
 }
 {
  dup 0x7E gt
  {
   pop 0x2D
  }
  {
  } ifelse
 } ifelse
 char ^3) exch
} for
pop
!\\