#!/usr/bin/perl -w
use strict;
use utf8;

print <<End;
simple edict 0.02 - read known
End

use IO::File;

my $known_file = shift || "known";
my $file = IO::File->new($known_file, "r");

my %known;

my $line;
while (defined ($line = $file->getline)) {
	utf8::decode($line);
	for ($line =~ /(.)/g) {
		$known{$_} = 1;
	}
}

while (print(": "), defined ($line = <>)) {
	if ($line =~ /^\?$/) {
		system "<known tr -d ' \n'";
		print "\n";
		next;
	}
	utf8::decode($line);
	my $new = "";
	$line =~ s/[ -~]//g;
	for ($line =~ /(.)/g) {
		if ($known{$_}) {
			my $o = $_;
			utf8::encode($o);
			print $o;
		} else {
			$new .= $_;
			$known{$_} = 1;
		}
	}
	utf8::encode($new);
	print " - $new\n";
	if ($new ne '') {
		my $file = IO::File->new(">>$known_file");
		print $file "$new\n";
		close $file;
		system "./make_known";
	}
}