#!/usr/local/bin/perl -w
#get list of points on stdin count them and put them into qhull file
#along with dimensionality of data 3 and count of # of data points
open (QHULLFILE,">".$ARGV[0])||die "output file could not be opened in count.prl";
$x=0;
while (<STDIN>) {
	$points[$x]=$_;
	$x++;
}
#print "datapoints to go into qhull".$x;
print QHULLFILE "3 \n";
print QHULLFILE $x;
print QHULLFILE "\n";
print QHULLFILE @points;
close QHULLFILE;

