5 lines
143 B
FortranFixed
5 lines
143 B
FortranFixed
|
\ html.f
|
||
|
|
||
|
\ determine string length for text + symmetrical open/close tags
|
||
|
: octag 2( a1 u1 a2 u2 -- a1 u1 a2 u2 n ) over nip over 2 * + 5 + ;
|