# length - compute length of string
include ratdef
   integer function length(str)
   integer str(ARB)
   
   for (length = 0; str(length+1) ^= EOS; length = length + 1)
      ;
   return
   end