main = getLine >>= putStrLn . solve . read

solve :: Int -> String
solve n
	| even n = x : xs
	| otherwise = '7' : xs
	where (x : xs) = replicate (div n 2) '1'