Problem:
Score : 500 points

Problem Statement

You are given a connected undirected simple graph, which has N vertices and M edges.
The vertices are numbered 1 through N, and the edges are numbered 1 through M.
Edge i connects vertices A_i and B_i.
Your task is to find a path that satisfies the following conditions:

The path traverses two or more vertices.

The path does not traverse the same vertex more than once.

A vertex directly connected to at least one of the endpoints of the path, is always contained in the path.

It can be proved that such a path always exists.
Also, if there are more than one solution, any of them will be accepted.

Constraints

2 \leq N \leq 10^5

1 \leq M \leq 10^5

1 \leq A_i < B_i \leq N

The given graph is connected and simple (that is, for every pair of vertices, there is at most one edge that directly connects them).

Input

Input is given from Standard Input in the following format:

N M
A_1 B_1
A_2 B_2
:
A_M B_M

Output

Find one path that satisfies the conditions, and print it in the following format.
In the first line, print the count of the vertices contained in the path.
In the second line, print a space-separated list of the indices of the vertices, in order of appearance in the path.

Sample Input 1

5 6
1 3
1 4
2 3
1 5
3 5
2 4

Sample Output 1

4
2 3 1 4

There are two vertices directly connected to vertex 2: vertices 3 and 4.
There are also two vertices directly connected to vertex 4: vertices 1 and 2.
Hence, the path 2 → 3 → 1 → 4 satisfies the conditions.

Sample Input 2

7 8
1 2
2 3
3 4
4 5
5 6
6 7
3 5
2 6

Sample Output 2

7
1 2 3 4 5 6 7

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

{-# OPTIONS_GHC -O #-}
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns #-}

import Data.Char
import Data.List
import Data.Maybe
import Control.Monad
import Control.Monad.ST
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy.Char8 as LB
import qualified Data.Vector as V
import qualified Data.Vector.Mutable as MV
import qualified Data.Vector.Storable as SV
import qualified Data.Vector.Storable.Mutable as SMV
import qualified Data.Sequence as S
import Data.Sequence ((|>), (<|), ViewL(..), ViewR(..))

vl (n:<_) = n
vlast (_:<r) = r
vr (_:>n) = n

solve lh rh pa ed ud =
    case find (ud SV.!) nl of
        Just n -> solve n rh (n<|pa) ed (use n ud)
        Nothing -> solve2 rh pa ed ud
    where
        nl = ed V.! lh

solve2 rh pa ed ud =
    case find (ud SV.!) nl of
        Just n -> solve2 n (pa|>n) ed (use n ud)
        Nothing -> pa
    where
        nl = ed V.! rh

adde :: V.Vector [Int] -> [Int] -> IO (V.Vector [Int])
adde v [a,b] = return $ runST $ do
    v' <- V.unsafeThaw v
    av <- MV.unsafeRead v' a
    MV.unsafeWrite v' a (b:av)
    bv <- MV.unsafeRead v' b
    MV.unsafeWrite v' b (a:bv)
    V.freeze v'

use n v = runST $ do
    v' <- SV.unsafeThaw v
    SMV.unsafeWrite v' n False
    SV.unsafeFreeze v'

main = do
    [n,m] <- unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    --
    [a,b] <- unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    ev <- replicateM (m-1) $ unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    v <- foldM adde (V.replicate (n+1) []) ev
    --
    let uv = use b $ use a (SV.replicate (n+1) True)
    --
    let rs =  solve a b (S.fromList [a,b]) v uv
    --
    print $ S.length rs
    LB.putStr $ LB.pack $ show $ vl $ S.viewl rs
    forM_ (vlast $ S.viewl rs) $ do \i -> do LB.putStr " "; LB.putStr $ LB.pack $ show i
    LB.putStrLn ""