#glue

sub create_array {
  my $len = scalar(@_);
  my $ia = mygraph::int_array($len);
  for (my $i = 0; $i < $len; $i++) {
    my $val = shift;
    mygraph::int_set($ia,$i,$val);
  }
  return $ia;
}

1;
