#!/afs/athena/contrib/perl/perl

$number = $ARGV[0];

$number =~ s/\D//;
open(WORDS, "/afs/sipb/project/sipbsrc/src/mboggle/words/allwords") || die "Ack!";

while(<WORDS>){
	chop($_);
	$word = $_;
	tr/A-PR-YZ/2223334445556667778889999/;
	if((($mv=index($number, $_))!=-1) && (length($word) >= 3)){
	    $bef = substr($number, 0, $mv);
	    $aft = substr($number, $mv+length($word));
	    print("$bef-$word-$aft\n");
	}
	chop;
	if((($mv=index($number, $_)) == length($number)-length($_)) && 
	   ($mv != -1) &&
	   (length($word) >= 3)){
	    $bef = substr($number, 0, $mv);
	    $last = chop($word);
	    print("$bef-$word-($last)\n");
	}
	chop;
	if((($mv=index($number, $_)) == length($number)-length($_)) && 
	   ($mv != -1) &&
	   (length($word) >= 3)){
	    $bef = substr($number, 0, $mv);
	    $last = chop($word);
	    $last = chop($word).$last;
	    print("$bef-$word-($last)\n");
	}

}