(defclass A () ())
(defclass B (A) ())
(defmethod gf1 ((o A))
o)
(defmethod gf3 ((o A))
o)
(defmethod gf2 ((o B))
o)
(print (gf2 (gf3 (gf1 (make-instance 'B)))))
KGRlZmNsYXNzIEEgKCkgKCkpCgooZGVmY2xhc3MgQiAoQSkgKCkpCgooZGVmbWV0aG9kIGdmMSAoKG8gQSkpCiAgbykKCihkZWZtZXRob2QgZ2YzICgobyBBKSkKICBvKQoKKGRlZm1ldGhvZCBnZjIgKChvIEIpKQogIG8pCgoocHJpbnQgKGdmMiAoZ2YzIChnZjEgKG1ha2UtaW5zdGFuY2UgJ0IpKSkpKQo=