$show = "results";
foreach in 1 do listit;
print "$show";
##listit:
$pclass = $for_id's pclass;
if $pclass like blob then listit2;
##listit2:
$mat = $for_id's material;
swap $mat so '\\|' is '.';
$show = "$show , [$for_id] ($for_id) $mat $pclass";
##notyet:
set $for_id's code to '';
set $for_id's material to '';
set $for_id's loc to 0;