|
|
1.1 root 1: define(lgth,`ifelse($1,,0,`incr(lgth(substr($1,1)))')')
2: define(string,`integer $1(lgth(substr($2,1)))
3: str($1,substr($2,1),0)
4: data $1(lgth(substr($2,1)))/EOS/
5: ')
6: define(str,`ifelse($2,",,`
7: 'data $1(incr($3))/`LET'substr($2,0,1)/`str($1,substr($2,1),incr($3))')')
8:
9: string(xxx,"abc")
10: string(yyyy,"123456789")
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.