##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August, 2016
# Modified: 2016-10-03/22:37-0400
##+
#
# Arb.icn, demonstrate Arb() SNOBOL, always succeeds matching
#
procedure main()
    sub := "This is a test"
    pat := "This" || Arb() -> inter || "a test"
    write(sub ?? pat)
    write((sub[1:-2] ?? pat) | "no match")
    sub ?? pat; write(inter)
end