import Data.List
 
main :: IO ()
main = print $  let a = [1..10] ; (l:ar) = reverse a in (map snd . zip ar . concat . transpose) [a, ar] ++ [l]