1 2define(string,`integer $1(len(substr($2,1))) 3str($1,substr($2,1),0) 4data $1(len(substr($2,1)))/EOS/ 5') 6 7define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/ 8`str($1,substr($2,1),incr($3))')') 9