// "lib-fzscan-test-a.hac"
//	$Id: lib-fzscan-test-a.hac,v 1.2 2007/08/28 04:55:03 fang Exp $
// testing reading input from file
// depends on built input file "fzscan-01.txt"

int z;
int i;
chp {
i:=0;
*[ (i<4) ->
	print(fzscan("fzscan-01.txt"));
	i:=i+1
]
}

