|
|
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.