main = do
	n<-fmap read getLine::IO Int
	let m=n`div`2-1
	let front=if n`mod`2==0 then '1' else '7'
	putStrLn$front:replicate m '1'