extproc perl -Sw
$topic = pop @ARGV;
$topic =~ s/\@\d$//;
close STDOUT;		# Otherwise GP' fgets() waits for output of 'view'...
			# Should not P_UNRELATED take care of this??!!
system 4 | (1<<18), 'view', 'pari', $topic;	# P_SESSION=4;P_UNRELATED=1<<18
