object a


  
  m(X) :- write(ok), nl.
  
  object a.
  
  var x,y<<x.
  
  end a.
  
  

slide: object a