-# $Id: sgml.flt,v 1.1 1995-12-15 16:20:23 adam Exp $
-%tagset gils
-\n*< [^>]+ >\n* {b $1}
-\n*</ [^>]* >\n* {e}
-[ \n\t]+ {p { }}
+# $Id: sgml.flt,v 1.5 1998-10-15 13:11:46 adam Exp $
+BEGIN /\n*</ BODY />\n*/ { begin record $2 }
+/\n*<[Vv][Aa][Rr][ ]+/ /[^ >]+/ /[ ]+/ /[^ >]+/ /[ ]+/ /[^ >]+/ /[ ]*>/ {
+ begin variant $1 $3 $5
+ }
+/\n*</ BODY />\n*/ { begin element $1 }
+/\n*<\// BODY />\n*/ { end element -record }
+/[ \n\t]+/ { data " " }