let rec
   split [] = [],[]  ||
   split (H.T) = let Even,Odd = split T
                 in  (H.Odd),Even

in split [1..10]

--\fB Split a List into Odd and Even Numbered Elements. \fP