: distribute ( amount n -- seq ) [ / ] keep 0 [ 0 0 ] dip [ + [ [ dup ] dip + ] dip [ dup round ] dip 2dup - [ drop ] dip ] map 3nip ;