program i
dimension a(10),b(2,3)
data name/'john'/,miles/10*0/
data ((skew(k,j),j=1,k),k=1,99)/4950*1.0/
end
