// sampleB.pax
// this is a syntatically INCORRECT program

var a;
array 100 name;

proc first(i, j)
   var a;
   a = i + j;
   retval a;
endproc

proc second()
var i, j;
   writestr("first integer: ");
   read(i);
   writestr("second integer: ");
   read(j);
   write("sum is ");
   write(first(i, j));
   line;
endproc

proc main()
   writestr("Who are you? ");
   readstr(name);
   writestr("Hi, ");
   writestr(name);
   writestr("Let's add!");
   line;
   second();
endproc