: apply-rules ( seq -- seq ? ) { { [ dup 2 tail* { right left } sequence= ] [ { left right } t ] } [ f ] } cond ;