(<= (Model-Id $X Machine_Beam_Model_M04) (Machine_Beam_Model_M04 $X))
(<= (Machine_Beam_Unit_Weight $X 35) (Machine_Beam_Model_M04 $X))
(<= (Machine_Beam_Section_Modulus $X 38.2)
(Machine_Beam_Model_M04 $X))
(<= (Has-Parameter-Slot $X Machine_Beam_Section_Modulus)
(Machine_Beam_Model_M04 $X))