##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/23:00-0400
##+
#
# middling-scan.icn, A slightly less simple string scanning example
#
procedure main(arglist)
    who := \arglist[1] | "Waldo"
    "Where's " || map(who) ? {
        write("Subject: ", image(&subject))
        write("target : ", image(who))
        p := find(map(who))
    }
    if \p then write("Found ", who, " starting at position ", p)
end