: func ( x y quot -- ) [| x y z | x y [a,b] z each ] call ;