(define N (read))

(print (if (zero? (mod N 2))
           (make-string (div N 2) #\1)
           (string-append "7" (make-string (div (- N 3) 2) #\1))))