Here is what I hacked on my flight back from Helsinki

seqexp.clj

; regexps on seqables, implemented using a Pike and Janson vm.
; linear with the size of the input, supports greedy and reluctant operators.
=> (exec (as :whole 
           (as :pre
             (* odd?) #(== 3 %))
           (* (constantly true))
           #(== 7 %))
     [1 3 3 7])
{:pre (1 3 3), :whole (1 3 3 7)}

=> (exec (as :whole 
           (as :pre
             (*? odd?) #(== 3 %))
           (* (constantly true))
           #(== 7 %))
     [1 3 3 7])