1*44130Sbosticmodule main; 2*44130Sbostic 3*44130Sbosticfrom io import Writef, output; 4*44130Sbostic 5*44130Sbosticprocedure r (n : integer); 6*44130Sbosticbegin 7*44130Sbostic Writef(output, "blah\n"); 8*44130Sbostic if n > 0 then 9*44130Sbostic r(n - 1); 10*44130Sbostic Writef(output, "blah2\n"); 11*44130Sbostic end; 12*44130Sbosticend r; 13*44130Sbostic 14*44130Sbosticbegin 15*44130Sbostic r(5); 16*44130Sbosticend main. 17