# تعریف متد چاپ برای کلاس Person
print.Person <- function(obj) {
  cat("Name:", obj$name, "\nAge:", obj$age, "\n")
}

# استفاده از متد چاپ
print(person)