##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/23:17-0400
##+
#
# repeat.icn, demonstrate the infinite repeat loop
#
procedure main()
    i := 0
    repeat {
        i +:= 1
        case i of {
            2: next
            4: break
        }
        write(i)
    }
    write("loop exited at ", i)
end