##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-03/22:39-0400
##+
#
# break.icn, loop exit sample
#
# this sample is utterly contrived
#
procedure main()
    every i := 1 to 3 do {
        every j := 1 to 4 do {
            write("i is ", i, ", j is ", j)
            # when i is 2, restart the outer loop
            if i == 2 then break next

            # when j is 2, just break out of the inner loop
            if j == 2 then break write("poor j, never gets to 3")
        }
        write("after the inner loop, i is ", i)
    }
end