'reinit'
'open out'
'set t 't
t=1
while (t<=600)
'set t 't
'set gxout shaded'
'd sst'
pull v
if (v='c')
'c'
t=t+1
endif
endwhile



