A=10
Dim A(10)=1
Module Beta {
      Read X$
      X$.++
}
Beta &A
Print A=11
Beta Weak$(A(2))
Print A(2)=2