// Create a new GTS with ten values
NEWGTS
'test name' RENAME
{ 'label0' '42' 'label1' 'foo' } RELABEL
100 NaN NaN NaN 10 ADDVALUE
400 NaN NaN NaN 10 ADDVALUE
500 NaN NaN NaN 6 ADDVALUE
700 NaN NaN NaN 6 ADDVALUE
800 NaN NaN NaN 6 ADDVALUE
900 NaN NaN NaN 6 ADDVALUE
1000 NaN NaN NaN 4 ADDVALUE
1100 NaN NaN NaN 4 ADDVALUE
200 NaN NaN NaN 10 ADDVALUE
300 NaN NaN NaN 10 ADDVALUE
'split-label'
VALUESPLIT <%
'gts' STORE
$gts LABELS 'split-label' GET TOLONG 'v' STORE
[ $gts $v mapper.replace 0 0 0 ] MAP 0 GET
%> F LMAP