#0=(write*'(0'#0# 0))