1*44121Sbosticmodule main; 2*44121Sbostic 3*44121Sbosticfrom io import Writef, output; 4*44121Sbostic 5*44121Sbosticvar global : integer; 6*44121Sbostic 7*44121Sbosticprocedure p (i : integer; s : array of char; j : integer); 8*44121Sbosticbegin 9*44121Sbostic Writef(output, "in p(%d, %s, %d)\n", i, s, j); 10*44121Sbostic global := 10; 11*44121Sbosticend p; 12*44121Sbostic 13*44121Sbosticbegin 14*44121Sbostic global := 3; 15*44121Sbostic p(3, "blah", 4); 16*44121Sbosticend main. 17