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: Runtime Error)

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

import Data.List
import Data.Maybe
import Control.Monad
import qualified Data.ByteString.Char8 as B
import qualified Data.Map.Strict as M

dfs grp ps n
    | length ps == 3 = Just (n:ps)
    | True = join$find isJust$fmap (dfs grp (n:ps)) [n|n<-ns, not$elem n ps]
        where ns=M.findWithDefault [] n grp

main=do
    [n,m]<-map read.words<$>getLine
    grp<-foldM insmap M.empty [1..m]
    let Just x =  dfs grp [] 1
    print 4
    putStrLn $ drop 1 $ foldl' (\s i->s ++ " " ++ show i) "" x

insmap :: M.Map Int [Int] -> a -> IO (M.Map Int [Int])
insmap g _ = do
    [a,b] <- unfoldr (B.readInt.B.dropWhile (==' '))<$>B.getLine
    let g' = M.insert a (b:(M.findWithDefault [] a g)) g
    return $ M.insert b (a:(M.findWithDefault [] b g')) g'