Net2/usr/src/usr.bin/pascal/tstpx/out/ffunc.out

in bar x = 2
in forfunc bar = 3

9 statements executed in 0.03 seconds cpu time.