4.3BSD/usr/contrib/icon/libtest/t-strutil.icn

link "../ilib/strutil"

procedure main()
   s := "abcedf"
   every write(rotate(s,(1 to 6) | (-1 to -6 by -1) | 20 | 36))
   write("---")
   write(rotate("abcdef"))
   write(compress("hello world",&lcase))
   write(image(delete("hello world",&lcase)))
end