Index: p/src/fla/Makefile
===================================================================
--- app/src/fla/Makefile	(revision 8d3e6ab33b2b6727eb54bb3498a0ba2af9ca9ea1)
+++ 	(revision )
@@ -1,13 +1,0 @@
-PAR = -m32
-# -static
-
-fla: fla.c
-	gcc $(PAR) -o fla fla.c
-
-copy:
-ifdef UTT_BIN_DIR
-	cp fla ${UTT_BIN_DIR}
-endif
-
-clean:
-	rm fla
Index: p/src/fla/fla.c
===================================================================
--- app/src/fla/fla.c	(revision 25ae32e4c2354e0ed6756bbe1de83f39cd814652)
+++ 	(revision )
@@ -1,46 +1,0 @@
-#include <stdio.h>
-#include <string.h>
-#include <regex.h>
-
-char buf[5001];
-
-main(int argc, char **argv)
-{
-
-  char *pattern;
-  char eoln;
-  regex_t re;
-
-  int firstline=1;
-
-  if(argc < 2)
-/*     pattern="[ \t]*([0-9]+[ \t]+){2}EOS([ \t].*)?"; */
-    pattern="[ \t]*BOS([ \t].*)?";
-  else
-    pattern=argv[1];
-
-  if(argc < 3)
-    eoln='\f';
-  else
-    eoln=atoi(argv[2]);
-
-  if(regcomp(&re, pattern, REG_EXTENDED|REG_NOSUB) !=0)
-  {
-    fprintf(stderr,"Invalid pattern.\n");
-    exit(1);
-  }
-
-  while(fgets(buf,5000,stdin))
-  {
-    buf[strlen(buf)-1]='\0';
-    if(firstline)
-      firstline=0;
-    else
-      if(regexec(&re, buf, (size_t)0, NULL, 0) == 0)
-        putchar('\n');
-      else
-        putchar(eoln);
-    fputs(buf,stdout);
-  }
-  putchar('\n');
-}
Index: auto/output/Makefile
===================================================================
--- auto/output/Makefile	(revision 1e551bdd1bf6aaf003fd1ba34eca63b8fcc7b5ba)
+++ auto/output/Makefile	(revision 9e0afb505e266b0a64e2c91b685b3361c9c3bfb3)
@@ -43,5 +43,5 @@
 VPATH = ./src
 
-PROGRAMS = tok sen
+PROGRAMS = tok sen fla
 
 TOK_OBJ_FILES = tok.o tok_cmdline.o
@@ -53,4 +53,6 @@
 SEN_FLEX_FILES = sen.l
 
+FLA_OBJ_FILES = fla.o
+
 CONFIG_FILES = src/config.h Makefile
 
@@ -61,5 +63,4 @@
 .INTERMEDIATE: \$(patsubst %.ggo,%.c,\$(TOK_GGO_FILES))
 .INTERMEDIATE: \$(patsubst %.ggo,%.h,\$(TOK_GGO_FILES))
-
 .INTERMEDIATE: \$(patsubst %.l,%.c,\$(SEN_FLEX_FILES))
 
Index: src/fla.c
===================================================================
--- src/fla.c	(revision 9e0afb505e266b0a64e2c91b685b3361c9c3bfb3)
+++ src/fla.c	(revision 9e0afb505e266b0a64e2c91b685b3361c9c3bfb3)
@@ -0,0 +1,68 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <regex.h>
+
+char buf[5000];
+
+int main(int argc, char **argv)
+{
+
+  char *pattern;
+  char eoln;
+  regex_t re;
+
+  int firstline = 1;
+
+  if( argc < 2 )
+  {
+/*     pattern="[ \t]*([0-9]+[ \t]+){2}EOS([ \t].*)?"; */
+    pattern = "[ \t]*BOS([ \t].*)?";
+  }
+  else
+  {
+    pattern = argv[1];
+  }
+
+  if( argc < 3 )
+  {
+    eoln = '\f';
+  }
+  else
+  {
+    eoln = atoi(argv[2]);
+  }
+
+  if( 0 != regcomp(&re, pattern, REG_EXTENDED|REG_NOSUB) )
+  {
+    fprintf(stderr, "Invalid pattern.\n");
+    return 1;
+  }
+
+  while( fgets(buf, 5000, stdin) )
+  {
+    buf[strlen(buf)-1] = '\0';
+    if( firstline )
+    {
+      firstline = 0;
+    }
+    else
+    {
+      if( 0 == regexec(&re, buf, (size_t)0, NULL, 0) )
+      {
+        putchar('\n');
+      }
+      else
+      {
+        putchar(eoln);
+      }
+    }
+    fputs(buf, stdout);
+  }
+
+  putchar('\n');
+
+  return 0;
+
+}
+