drop_while p xs
returns the remaining portion of the list
Source code:
set index 0 foreach x $xs { if { ![eval_unary $p $x] } { break } incr index } drop $index $xs