*--#[ string manupulation :
*--#[ getstrlen : getstrlen(var,str)

#procedure getstrlen(var,?str)
  #pipe perl -e "\$str = q(`?str');print qq(#redefine `var' \\\"@{[ \
    length(\$str) \
  ]}\\\"\n)"
#endprocedure

*--#] getstrlen :
*--#[ getsubstring : getsubstring(var,str,index1,index2)

#procedure getsubstring(var,?str,index1,index2)
  #pipe perl -e "\$str = q(`?str');print qq(#redefine `var' \\\"@{[ \
    substr(\$str, {`index1'-1}, {`index2'-`index1'+1}) \
  ]}\\\"\n)"
#endprocedure

*--#] getsubstring :
*--#[ getstrcar : getstrcar(var,str)

#procedure getstrcar(var,?str)
  #call getsubstring(`var',`?str',1,1)
#endprocedure

*--#] getstrcar :
*--#[ getstrcdr : getstrcdr(var,str)

#procedure getstrcdr(var,?str)
  #call getstrlen(`var',`?str')
  #call getsubstring(`var',`?str',2,``var'')
#endprocedure

*--#] getstrcdr :
*--#[ getdollarname : getdollarname(var,str)

#procedure getdollarname(var,?str)
* Assume the first character is "$".
  #call getstrcdr(`var',\\\\`?str')
#endprocedure

*--#] getdollarname
*--#] string manupulation :