zmain
      k ^a
      f i=0:1:9 s ^a(i)=i f j=0:1:9 s ^a(i,j)=j
      w $n(^a(-1)),!
      w $n(^a(0,-1)),!
      w ^a(0),!
      w ^a(0,0),!
      w $n(^a(0)),!