fun everyOtherEven []      = []
  | everyOtherEven (x::xs) = everyOtherOdd xs

and everyOtherOdd []      = []
  | everyOtherOdd (x::xs) = x::(everyOtherEven xs);