1module main; 2 3from io import Writef, output; 4 5procedure r (n : integer); 6begin 7 Writef(output, "blah\n"); 8 if n > 0 then 9 r(n - 1); 10 Writef(output, "blah2\n"); 11 end; 12end r; 13 14begin 15 r(5); 16end main. 17