main=do
 n<-readLn;a<-words<$>getLine
 putStrLn$unwords(f n a)
  where f n a = if (mod n 2)==0 then(g 1 n a [] [])else(reverse(g 1 n a [] []))
        g i n a o e |i>n    =e++(reverse o)
                    |odd i  =g (i+1) n (tail a) ((head a):o) e
                    |even i =g (i+1) n (tail a) o ((head a):e)