shuffle n = even n ++ odd n

odd [] = []
odd (a:b) = if a `mod` 2 == 1 then a:odd b else odd b

even [] = []
even (a:b) = if a `mod` 2 == 0 then a:even b else even b