unequals symbol:		"/=", layout.
arrow symbol:			"->", layout.
fat arrow symbol:		"=>", layout.
left square bracket symbol:	"[", layout.
right square bracket symbol:	"]", layout.
left brace symbol:		"{", layout.
right brace symbol:		"}", layout.
times symbol:			"*", layout.
divides symbol:			"/", layout.
or symbol:			"|", layout.
slice symbol:			"@", layout.
plus symbol:			"+", layout.
minus symbol:			"-", layout.
open symbol:			"(", layout.
close symbol:			")", layout.
less than symbol:		"<", layout.
less or equals symbol:		"<=", layout.
greater than symbol:		">", layout.
greater or equals symbol:	">=", layout.
dotdot symbol:			"...", layout.
colon symbol:			":", layout.
dont care symbol:		"_", layout.
question mark symbol:		"?", layout.
exclamation mark symbol:	"!", layout.
empty type symbol:		"<>", layout.
at sign symbol:			"@", layout.
ampersand symbol:		"&", layout.
and symbol:			"&", layout.
dollar symbol:			"$", layout.
star symbol:			"*", layout.
numbersign symbol:		"#", layout.
power symbol:			"^", layout.
logical not symbol:		"~", layout.
element of symbol:		":-", layout.
reversed element of symbol:	"-:", layout.

layout:
   !\n\t !* (ig>), comment or parser directive.

comment or parser directive:
   "/*", comment items, layout,->;
comment or parser directive:
   "#", charnum ("1">),  parser directive, layout, ->;
comment or parser directive:.

parser directive:
   ! ! * (ign>),
   !1234567890! + (line>),
   ! ! * (iign>),
   ^ ! \t\n!* (file name>),
   ^!\n! * (ii>),
   nlcr or eof,
   set line file (>line, >file name).

nlcr or eof:
   nlcr, ->;
nlcr or eof:
  end of sentence.
comment items:
   ^!*!* (ig>), "*/", ->;
comment items:
   ^!*!* (ig>), "*", comment items.
#
#

get org ( "("+file+","+line+") ">):
     get line file (line>,file>).
 

#

MY ID :: BOX + NAME + VERSION + BOX + N.
BOX     ::  "||-----------------------------------------------------------  \n".
NAME    ::  "|| Name:    Transducer for Glass.                            ||\n".
VERSION ::  "|| Version: 1.3  GLAMMAR ("+ generation date+")         ||\n".

N :: nlcr.
%$TEX
\input \jobname.ind
\end{document}
%
