INSTALL @lib$+"CLASSLIB"

      DIM Camera{TakePicture}
      PROC_class(Camera{})

      DIM MobilePhone{MakeCall}
      PROC_class(MobilePhone{})

      DIM CameraPhone{methods}
      PROC_inherit(CameraPhone{}, Camera{})
      PROC_inherit(CameraPhone{}, MobilePhone{})
      PROC_class(CameraPhone{})