RosettaCodeData/Task/Copy-a-string/TAV/copy-a-string.tav

  s =: "hello"
  print s.Usecount
  t =: s              \ reference copy
  print s.Usecount
  u =: string (s _ 'x') clip upto -2
  print (quote u), u.Usecount, s.Usecount