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