Toy example of S4 package