##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October, 2016 # Modified: 2016-10-09/00:21-0400 ##+ # # Fail.icn, demonstrate Fail() SNOBOL pattern, forces backtracking # # Display one character per line by forcing alternatives for Len() procedure main() sub := "Force backtrack" out := &output sub ?? Len(1) => out || Fail() end