IN: scratch : mseq ( quot -- seq ) { } make ; inline : foo ( -- x ) [ 1 2 + , 3 4 + , ] mseq ; [ 1 2 + , 3 4 + , ] mseq . foo .