: (distribute) ( a b c -- a b c d )
    [ dupd + dup round dup ] dip - ;

: distribute ( amount n -- seq )
    [ / 0 0 ] keep [ (distribute) ] replicate 3nip ;