slice (pvb -w link)
where (link :: *)         
{
  string = alloc (&_, T_CHARS, "Text String");

  *link = alloc (&_, T_SLICE, string, 3, length (string) - 3 - 1);         
}
/
{
  free (&string), { set_alone (string) };
}