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