TUPLE: test a b c ;

: <test> ( -- t ) { 1 2 } { 3 4 } { 5 6 } test boa ;

: f1 ( -- ) <test> . ;

: f2 ( -- ) <test> a>> [ [ 10 0 ] dip set-nth ] [ [ 20 1 ] dip set-nth ] bi ;

! Now run the following on the listener

f1

! outputs T{ test { a { 1 2 } } { b { 3 4 } } { c { 5 6 } } }

f2 f1

! outputs T{ test { a { 10 20 } } { b { 3 4 } } { c { 5 6 } } }