main=putStr$0#"print v" x#m|x>9=take 36m|f<-shows$x+1=("for v"++f" = "++"10"!!min 1x:" to 9\n"++(x+1)#(m++f",v")>>=max"\n ".(:[]))++"\nnext"