map$a+=/8/,1..<>;print$a