sub gcprepare {
 return 1;
}

sub gctask {
	my ($task,$taskarg,$portion,$din,$dout) = @_;
	my ($n,$expo) = split (/ /, $taskarg);
	my $cmd = "Pi $expo";
	$cmd = "./$cmd" if ($^O ne 'MSWin32');
	my $s = readpipe($cmd);
	if ($s==-1) {
		return 0;
	}
	open (F,">$dout");
	print F "$s";
	close (F);
	return 1;
}

1;
