# Definition: a constructor that tags a list
new_some_class <- function() {
structure(list(), class = "SomeClass")
}
# Initialization: call the constructor
some_class <- new_some_class()
# class(some_class) = SomeClass
cat("class(some_class) =", class(some_class),
"\n")