#!/afs/athena/contrib/perl5/bin/perl

while(<>){
	$text .= $_;
}
srand;

$text =~ s/\n/ /g;
(@words) = split(/\s+/, $text);

foreach $n (0..$#words-1){
    $words[$n] =~ s/\W//g;
#    print("Word \"$words[$n]\"\n");
    $ftable->{$words[$n]}->[$count{$words[$n]}++] = $words[$n+1];
}

$word = $words[1];
$word =~ s/\W//g;

while(1){
    print("$word ");
    $num = rand($count{$word});
    $word = $ftable->{$word}->[$num];
    $word =~ s/\W//g;
}