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