#!/usr/bin/perl

my $fields = shift;
$fields = 3 unless $fields;
$" = ', ';
my @data = ();

print "struct data {\n\tdouble a, b;\n\tchar *data;\n} dgg[] = {\n";
while (<>) {
	chomp;
	my @f = split(/\s+/, $_, $fields);
	#my $s = pop @f;
	push @f, '';
	push @data, qq|{@f[0,1], "$f[2]"}|;
}
print join(",\n", @data);
print "\n};\n";