TUPLE: point x y z ; : foobar ( x y z -- point ) point boa ; : make-points ( -- points ) 32 dup 16 [a,b) 32 dup 16 [a,b) 128 iota [ foobar ] 3map ;