-- Similiar to `span`, but put the first unqualified element in the fst position
-- eg. span (/=';') "abc;efg" = ("abc", ";efg")
-- eg. span' (/=';') "abc;efg" = ("abc;", "efg")
span' :: (a -> Bool) -> [a] -> ([a], [a])
span' f [] = ([], [])
span' :: (a -> Bool) -> [a] -> ([a], [a])
span' f [] = ([], [])
span' f [] = ([], [])