procedure main()
every a:=-12to 12&writes(" "||char(abs(a)+abs(-12to 12)+65)|"\n")
end