my $test;
  add_nir(1,4,\$test);