9 lines
204 B
Text
9 lines
204 B
Text
|
|
||
|
|
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))')')
|