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.Sequence as S
import Data.Sequence ((|>), (<|), ViewL(..), ViewR(..))

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

f a [x,y] = a==x || a==y
g a b xy = f a xy || f b xy

pick _ _ _ [] _ = Nothing
pick path a b ((xy@[x,y]):vs) rv
    | a == x && S.elemIndexL y path == Nothing = Just ((y,a),vs ++ rv)
    | a == y && S.elemIndexL x path == Nothing = Just ((x,a),vs ++ rv)
    | b == x && S.elemIndexL y path == Nothing = Just ((y,b),vs ++ rv)
    | b == y && S.elemIndexL x path == Nothing = Just ((x,b),vs ++ rv)
    | g a b xy = pick path a b vs rv
    | True = pick path a b vs (xy:rv)

solve :: S.Seq Int -> [[Int]] -> S.Seq Int
solve path vs =
    case pick path lh rh vs [] of
        Nothing -> path
        Just ((a,b), v) | lh==b -> solve (a<|path) v
        Just ((a,b), v) | rh==b -> solve (path|>a) v
    where
        lh = vl $ S.viewl path
        rh = vr $ S.viewr path

main = do
    [n,m] <- unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    [a,b] <- unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    v <- replicateM (m-1) $ unfoldr (B.readInt.B.dropWhile isSpace) <$> B.getLine
    let (S.viewl -> r:<rs) =  solve (S.fromList [a,b]) v
    print $ (+1) $ S.length rs
    LB.putStr $ LB.pack $ show r
    forM_ rs $ do \i -> do LB.putStr " "; LB.putStr $ LB.pack $ show i
    LB.putStrLn ""