puts "TODO ?OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_h1-2_ss1_401-ta13402.prt.2.gdml.tcl]