xref: /freebsd/contrib/one-true-awk/testdir/t.fun4 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Loshfunction f(a, n) {
2*23f24377SWarner Losh	for (i=1; i <= n; i++)
3*23f24377SWarner Losh		print "	" a[i]
4*23f24377SWarner Losh}
5*23f24377SWarner Losh
6*23f24377SWarner Losh{	print
7*23f24377SWarner Losh	n = split($0, x)
8*23f24377SWarner Losh	f(x, n)
9*23f24377SWarner Losh}
10