3 acc f (a, b) x
  4     | f x = (x:a, b)
  5     | otherwise = (a, x:b)
  6
  7 splitWith f = foldl (acc f) ([], [])
  8