do
input""p
n=int((p+p^0)/6)
?p," = 6 * ",n," ",chr$(44-p+6*n)," 1"loop