##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: October 2016
# Modified: 2016-10-14/14:30-0400
##+
#
# upto.icn, demonstrate the string scanning upto generator
#
procedure main()
    s := "  this is a test  "
    write(s)
    s ? every i := upto('st') do write(i, " ", &subject[i])
end