(<= (Model-Id $X Machine_Beam_Model_M01) (Machine_Beam_Model_M01 $X))
(<= (Machine_Beam_Unit_Weight $X 25.4) (Machine_Beam_Model_M01 $X))
(<= (Machine_Beam_Section_Modulus $X 24.7)
(Machine_Beam_Model_M01 $X))
(<= (Has-Parameter-Slot $X Machine_Beam_Section_Modulus)
(Machine_Beam_Model_M01 $X))