##- # Author: Brian Tiffin # Dedicated to the public domain # # Date started: May 2017 # Modified: 2017-05-11/01:23-0400 btiffin # # tectonics: unicon -s tabmatch-operator.icn -x # ##+ # # tabmatch-operator.icn, tab match and anchored pattern match # procedure main() subject := "The quick brown fox jumped over the lazy dog." space := ' ' subject ? { ="The" =space ="quick" =space ="brown" =space animal := tab(upto(space)) } write(animal) end