character*55s;s=repeat("   |   |   ---+---+---",3)
do i=1,7;j=ichar("7/3X"(i:))-1;k=0**k;s(j:j)="O"(k:)
print'(5(a11/))',(s(j*11+1:),j=0,4);enddo;end