{-# htermination partition :: (a -> Bool) -> [a] -> ([a],[a]) #-}
import List