: percentages ( n -- seq ) [ [1,b] ] keep v/n ;
: steps ( amount n -- seq ) percentages n*v ;
: rounded ( seq -- seq' ) [ round ] map ;
: differences ( seq -- seq' ) dup 0 prefix v- ;
: distribute ( amount n -- seq ) steps rounded differences ;