##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September 2016
# Modified: 2016-10-03/22:52-0400
##+
#
# fail.icn, demonstrate the fail emphatic expression
#
procedure main()
    # resumption will terminate after the hard fail expression
    every i := subproc() do write(i)
end

procedure subproc()
    # will only deliver 1 and 2
    suspend j := 1 to 4 do if j = 2 then fail
end