procedure main() while write(n:=read()," = 6 * ",(n+1)/6," ","+-"[n%3]," 1") end