dog
epithet
mannerism
...

##</code><code>##

# $num = user specified context maximum
# $graph = user specified grapheme to search for
# note: this also holds the examples corresponding to the 
# given context.

while(<INPUT>) {

    chomp($_);
    if( /$graph/ ) {
	($front, $back) = /(.{0,$num})$graph(.{0,$num})/;
	$con = $front.'_'.$back;
	push( @{$graph_contexts{$con}}, $_);
    } else {
	next;
    }
}