span p xs
splits a list using take_while and drop_while
Source code:
list [take_while $p $xs] [drop_while $p $xs]