in "maprint.red", "bang.save" $ off allfac$ out xxx $ #1 ; shut xxx $ bye$