0 forl=0to18:a=abs(l-int(l/6)*6-3):forx=0to18:m=x-int(x/6)*6
1 printchr$(32-10*(m=aorm=6-a));:next:print:next