set i=1while not i=57use ltblock fuse iuse gtuse f$iuse lt/blockuse gtinc i/whileuse ltset lt="use lt"use gtuse ltset gt="use gt"use gtset i=1block fuse f${i}/blockwhile not i=57use ltuse f$iuse gtinc iuse f$iinc i/whileblock f/blockset lt=""set gt=""