main = (print . shutin) [1..20]

shutin :: [a] -> [a]
shutin []     = []
shutin (i:is) = i : reverse is