#!/usr/bin/perl

my $i = 0;
my $vname = "file2string";

$vname = $ARGV[0] if ($#ARGV >= 0);

print "const char $vname" . "[] = {";

while (<STDIN>) {
	foreach (split //, $_) {
		if (($i++ % 12) == 0) {
			print "\n\t";
		}
		printf ("0x%02x, ", ord $_);
	}
}

print "\n};\n";
