#!/usr/bin/perl

@lines = <>;

#print "Number of lines; $#lines\n";

$x = 0;
foreach $ln (@lines) {
	@words = split /\s+/, $ln;
	foreach $word (@words) {
		$index{$word} = $x++;
		$count{$word}++;
	}
}

print "-=INDEX=-\n";
foreach $key (keys %index) {
	#print "[$key] $index{$key}\n";
	#$bkey = pack("C*",$index{$key});
	#print $key . chr(0) . $bkey . chr(0);
	printf "%s%c%x%c", $key, chr(0), $index{$key}, chr(0);
}
print "\n";

print "-=CONTENTS=-\n";
foreach $ln (@lines) {
	@words = split /\s+/, $ln;
	foreach $word (@words) {
		#print $index{$word} . " ";
		#$bword = pack("C*",$index{$word});
		#print $bword . chr(0);
		printf "%x%c", $bword, chr(0);
	}
	print "\n";
}