! these functions take x and y and then produce ! y rows of x values (values increasing from 1) : make-table ( x y -- table ) over * [1,b] swap group ; : make-table ( x y -- table ) [ * [1,b] ] [ drop group ] 2bi ;