; swap.xom
; omnimark: swap first two fields in a line of tab-delimited fields
; Run this program with the command
;   omnimark -sb swap.xom swap.txt
; where swap.txt is an input file with tab-delimited fields
process
    submit #main-input
find        line-start
            [any-text except "%t"]* => Field1
            "%t"
            [any-text except "%t"]* => Field2
    output Field2 || "%t" || Field1

Example 1: Pattern variables that swap the first two fields of a tab-delimited file.