'(< (* (Hoist_Cable_Diameter (Elevator.Hoistcable ?X)) 40) (Deflector_Sheave_Diameter_S (Elevator.Deflectorsheave ?X)))