$ set def [ratfor.source]
$ allocate mt0:
$ mou mt0: /for/density=800 mt0:
$ mcr flx mt0:/ze/do
$ mcr flx mt0:/do=dr0:*.*/rs
$ dismount mt0:
$ deallocate mt0: