set TheFileName "" restore [locate_data_file OCC358a.brep] f restore [locate_data_file OCC358b.brep] w pipe res w f