1 1 5 {dup {`*'} repeat bdup bpop ncat `\n' cat print} for flush