##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: September, 2016 # Modified: 2016-10-03/22:40-0400 ##+ # # classname.icn, demonstrate the classname function # class sample() method inner() write("in method inner of class ", classname(self)) end end procedure main() r := sample() r.inner() write("r is of class ", classname(r)) end