Index: app/src/kot/Makefile
===================================================================
--- app/src/kot/Makefile	(revision 8d3e6ab33b2b6727eb54bb3498a0ba2af9ca9ea1)
+++ 	(revision )
@@ -1,9 +1,0 @@
-
-kot:
-
-copy:
-ifdef UTT_BIN_DIR
-	cp kot ${UTT_BIN_DIR}
-endif
-
-clean:
Index: app/src/kot/kot
===================================================================
--- app/src/kot/kot	(revision 20b4e44e7537762f6aceb72b039f6e8f8a50e201)
+++ 	(revision )
@@ -1,102 +1,0 @@
-#!/usr/bin/perl
-
-#package:	UAM Text Tools
-#component:	kot
-#version:	1.0
-#author:	Tomasz Obrebski
-
-use strict;
-use Getopt::Long;
-use File::HomeDir;
-
-my $help=0;
-my $gap_fill="\n-----\n";
-my $spaces=0;
-
-my $systemconfigfile='/usr/local/etc/utt/kot.conf';
-#my $userconfigfile="$ENV{'HOME'}/.utt/kot.conf";
-my $userconfigfile=home()."/.utt/kot.conf";
-
-#read configuration files###########################
-my $file;
-foreach $file ($systemconfigfile, $userconfigfile){
-  if(open(CONFIG, $file)){
-  	while (<CONFIG>) {
-  		chomp;
-      		s/#.*//;
-	      	s/^\s+//;
-      		s/\s+$//;
-    		next unless length;
-    		my ($name, $value) = split(/\s*=\s*/, $_, 2);
-    		if(($name eq "gap-fill")or($name eq "g")){
-			$gap_fill=$value;
-    		}
-    		elsif(($name eq "spaces")or($name eq "s")){
-			$spaces=1;
-		}
-    		elsif(($name eq "help")or($name eq "h")){
-			$help=1;
-    		}
-
-	}
-  	close CONFIG;
-  }
-}
-#########################################################
-
-GetOptions("gap-fill|g=s" => \$gap_fill,
-	   "spaces|r" => \$spaces,
-	   "help|h" => \$help);
-
-if($help)
-{
-    print <<'END'
-Usage: ser [OPTIONS] [file ..]
-
-Options:
-   --gap-fill -g                  Help.
-   --spaces -r
-   --define=FILE                  Read macrodefinitions from FILE.
-   --flex-template=FILE           Read flex code template from FILE.
-   --only-matching -m		  Print only fragments matching PATTERN.
-   --flex                         Print only the generated flex code and exit.
-END
-;
-    exit 0;
-}
-
-
-$gap_fill =~ s/\\t/\t/g;
-$gap_fill =~ s/\\n/\n/g;
-$gap_fill =~ s/\\r/\r/g;
-$gap_fill =~ s/\\f/\f/g;
-
-my $prevend=-1;
-my $count=0;
-
-while(<>)
-{
-    my ($start,$len,$type,$form) = /^\s*(\d+)\s+(\d+)\s+(\S+)\s+(\S+)/;
-
-    if($start > $prevend)
-    {
-	print $gap_fill unless $count++ == 0;
-    }
-
-    $prevend=$start+$len;
-
-    next if $len==0;# || $form eq "*";
-
-    $form =~ s/\\\*/*/g;
-
-    if($type eq 'S' && ! $spaces)
-    {
-	$form =~ s/_/ /g;
-	$form =~ s/\\t/\t/g;
-	$form =~ s/\\n/\n/g;
-	$form =~ s/\\r/\r/g;
-	$form =~ s/\\f/\f/g;
-    }
-
-    print $form;
-}