5 lines
143 B
Forth
Executable File
5 lines
143 B
Forth
Executable File
\ 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 + ;
|