: [preserving] ( quot -- quot ) '[ dup drop @ ] [predicating] [keeping*] ;