> a=
+ function(x)
+ {b=x^2;cc=x^3
+ rr=list(i=x,j=b,k=cc)
+ class(rr)='tt'
+ rr
+ }
> print.tt=function(rr,...) print(rr$j,...)
> a(10)
[1] 100
> a(10)$i
[1] 10
> a(10)$k
[1] 1000
> names(a(10))
[1] "i" "j" "k"
>