#!/usr/bin/perl


print<<EOT;
// $ARGV[0]
const unsigned char mp3body[] = {
EOT


open(BIN, "-");
while($sz = read(BIN, $buff, 16)){
	print "\t";
	for($i=0;$i<$sz;$i++){
		print sprintf("0x%02X,", unpack("C", substr($buff, $i, 1)));
	}
	print "\n";
}
print "};\n";

