puts "TODO ?OCC22817 All:An exception was caught"
puts "TODO ?OCC22817 All:\\*\\* Exception \\*\\*"
puts "TODO ?OCC22817 All:TEST INCOMPLETE"

restore [locate_data_file CFI_13_e1ffm.rle] s
tscale s 0 0 0 SCALE1
explode s E
blend result s 5*SCALE1 s_2 5*SCALE1 s_12 5*SCALE1 s_9  5*SCALE1 s_1
explode result So
tcopy result_1 result

set square 670347