Index: nawszelkiwypadek/tools/cor_dic/makeLabels.pl
===================================================================
--- nawszelkiwypadek/tools/cor_dic/makeLabels.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
+++ nawszelkiwypadek/tools/cor_dic/makeLabels.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use locale;
+
+print "lcase	a ± b c æ d e ê f g h i j k l ³ m n ñ o ó p q r s ¶ t u v w x y z Œ ¿ é ö ü ä\n";
+print "ucase	A ¡ B C Æ D E Ê F G H I J K L £ M N Ñ O Ó P Q R S Š T U V W X Y Z ¬ ¯\n";
+print "letter	lcase ucase\n";
+print "digit	0 1 2 3 4 5 6 7 8 9\n";
+print "signs    , . @ \/ \'\n _";
+print "sem	~ ; - \\ \n";
+print "all	letter digit signs sem\n";
Index: nawszelkiwypadek/tools/cor_dic/prep.pl
===================================================================
--- nawszelkiwypadek/tools/cor_dic/prep.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
+++ nawszelkiwypadek/tools/cor_dic/prep.pl	(revision f1563c0f0270f57e03d1fba3f2ce99a3828b3b8c)
@@ -0,0 +1,67 @@
+#! /usr/bin/perl
+
+use locale;
+use strict;
+
+my $file = shift;
+
+if ($file eq "") {
+    print "Podaj nazwê pliku.\n";
+    exit(0);
+}
+
+
+`makeLabels.pl > labels.sym`;
+
+`lexmakelab labels`;
+
+print "Pobieram informacje ze s³ownika..........................";
+
+`cut -d \\; -f 1 <$file > temp1`;
+
+`sort -u < temp1 > temp2`;
+
+print "OK\n";
+
+print "Kompilujê automat........................................";
+
+`lexcomplex -l labels.lab -S labels.scl <temp2 > temp1`;
+
+print "OK\n";
+
+print "Usuwam epsilon-przejscia.................................";
+
+`fsmrmepsilon temp1> temp2`;
+
+print "OK\n";
+
+print "Determinizujê automat....................................";
+
+`fsmdeterminize temp2 > temp1`;
+
+print "OK\n";
+
+print "Minimalizujê automat.....................................";
+
+`fsmminimize temp1> temp2`;
+
+print "OK\n";
+
+print "Konwertujê automat do formatu fsa........................";
+
+`fsmprint -i labels.lab temp2> temp1`;
+
+`../fsm2aut temp1> temp2`;
+
+`../aut2fsa < temp2> cor.dic`;
+
+print "OK\n";
+
+print "Czyszczê pliki pomocnicze................................";
+
+`rm temp2`;
+`rm temp1`;
+`rm labels.*`;
+
+print "OK\n";
+