$def for001 'p1'.tpc_list
$def for002 'p1'.tpc_list_chewed
$run chew
$sort for002 for002