my $j; 
print "var samples = \n[\n"; 
while (<>) {
    chomp;
    unless (/^[\s]*$/ or /;;;/) {
	print "{ id: " . ++$j . ", item: \"$_\", readings: 1},\n" ;
    }
}
print "];\n"
