F# splitting a list into a list of lists

splitList.fs

// there have got to be better ways to do this?

let splitList (f:'a -> bool) (list:'a list) =
  let op (nested:'a list list) (thing: 'a) =
    if f thing then
      [] :: nested
    else
      match nested with
      | [] -> [[thing]]
      | headlist::rest -> (thing :: headlist) :: rest
  let result = List.fold op [] list
  result |> List.map List.rev |> List.rev