while(<>) {
	chop;
	push(@prim, $_);
}

print "val primitives_table = #[\n";

for ($i = 0; $i < $#prim; $i++) {
	print "  \"", $prim[$i], "\",\n";
}
print "  \"", $prim[$#prim], "\"];\n";