procedure main()
every writes(right((1to 12)*(j:=1to 12),3),if j<12then" "else"\n")
end