Target
"index-button"
{}
{ /ItemPath {rr} def
  /ClientUp {
    ContentsPileID (.pile % .index !index\n) sprintf callback
  } def }