sub jc {
	my ($line) = shift;
	my (@parts, $i);

	@parts= split('', $line);
	(undef) = shift(@parts);
	(undef) = pop(@parts);
	for ($i = 0; $i <= $#parts; $i++) {
		$parts[$i] =~ s/(.)/(byte)'$1'/;
	}

	return('{' . join(',', @parts) . '}');
}