sub FWriteF {
  my $file = shift;
  my $fmt = shift;
  my $text = sprintf($fmt, @_);
  _FRwriteF($file, $text);
     # calls C function as 
     # FWriteF($file, "%s", $text);
}

##</code><code>##

int
FWriteF(file, fmt, a0=0, a1=0, a2=0, a3=0,...., a10=0)
   FILE *file,
   const char *fmt
   int a0
   int a1
   ...
   int a10
CODE:
  switch (items - 2) {
    case 0:
      RETVAL = FWriteF(file, fmt);
      break;
    case 1:
      RETVAL = FWriteF(file, fmt, a1);
      break;
    case 0:
      RETVAL = FWriteF(file, fmt, a1, a2);
      break;
    ...
    case 10:
      RETVAL = FWriteF(file, fmt, a1, a2, a3, ..., a10);
      break;
  }
OUTPUT:
  RETVAL