'
  'MULTI INHERITANCE USING "HAS"
  '=============================


  class Communication
  '==================
  '
  static sys scount
  sys count
  
  method greet()
    count++
    scount++
    print "hello: " count "   " scount
  end method
  '
  end class

  class person
  '===========
  '
  has communication
  has communication b1
  has communication b2
  '
  end class

  '----
  'TEST
  '====
  '
  '#recordof person
  '
  person p
  '
  p.greet
  p.b1.greet
  p.b2.greet

