do a$="0":input""n:for i=(n-5)^0to n?"[";:a$=a$+"]"next:?a$loop