  subr s(int i) {
    print i+3;
  }
  call s($i);
