restore [locate_data_file intcq004.brep] m
explode m
# primitives : m_1 m_3 m_4 m_5
# m_2 : Bloc
compound m_1 m_3 m_5 c1
bsection s c1 m_2
# PB
bsection s2 m_4 m_2 
compound s s2 result

set length 682.142