# 
# Thanks to Douglas Palmer for pointing out the alphalpha issue.
# 
#!/usr/bin/perl -w

while (<>) {
  chomp;
  next if length($_) < 4;
  $item = $_;
  @t = split //;
  $i = 0;
  while ($i<length($item)-3) {
    $t = "";
    for (0..3) {
      $t .= $t[$i+$_];
    }
    if (defined($w{$t}) && $w{$t} ne $item) {
      $w{$t} = "DO NOT USE";
    }
    else {
      $w{$t} = $item;
    }
    $i++;
  }
}

print "\'questions\'\t\t\'answers\'\n\n";

for (sort keys %w) {
  next if $w{$_} eq "DO NOT USE";
  print "$_\t\t\t$w{$_}\n";
}




