get $target;
if $target > 0 then showloc;
##showloc:
$tloc = $target's loc;
print "Near [$target]";
foreach in $tloc do showit;
$tloc = $target;
print "Inside [$target]";
foreach in $tloc do showit;

##showit:
$mat = $for_id's material;
swap $mat so '\\|' is '.';
$code = $for_id's code;
if $code == '' then no else yes;
print "[$for_id] ($for_id) mat=$mat , code? $yes";
##yes:
$yes = 'yes';
##no:
$yes = 'no';