8 lines
204 B
Text
Executable file
8 lines
204 B
Text
Executable file
|
|
define(string,`integer $1(len(substr($2,1)))
|
|
str($1,substr($2,1),0)
|
|
data $1(len(substr($2,1)))/EOS/
|
|
')
|
|
|
|
define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
|
|
`str($1,substr($2,1),incr($3))')')
|