TUPLE: bong { x read-only } ; C: bong GENERIC: blah ( a -- b ) M: bong blah drop [ 5 ] ; inline : jeah ( -- x ) 5 1000 [ blah call( -- obj ) ] times x>> ;