Return to t-segment.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / libtest

Initial revision

link "../ilib/segment"

procedure main()
   local line
   while line := read() do {
      every write(segment(line,&lcase ++ &ucase))
      write("---")
      every write(segment(line,' '))
      write("===")
      }
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.