$N%2&&s/1/7/,print for 1x(($N=<>)/2)