process
  local stream s variable initial {"apple", "orange"}
  local integer i initial {number of s}
  put #main-output 'The number of fruit elements is %d(i).'