where  m              =  (length xs) `div` 2

                                       (xse, xsd)  =  (take m xs,  drop m xs)