sub gcprepare {
  print STDERR "gcprepare completed\n";
  return 1;
}

sub gctask {
  my ($task, $taskarg, $portion, $din, $dout) = @_; 
  open IN, "< $din";
  my $n = <IN>;
  close IN;
  my $res = $n ** $taskarg;
  print STDERR "Portion = $portion, value = $n, result = $res\n";
  open OUT, "> $dout";
  print OUT $res;
  close OUT;
  return 1;
}

1;