to randomtest maxn=800 n=array maxn for [x 1 maxn] [ n.x=int 0 ] print [Wait a few moments, then press a key to show the distribution!] until [key?] [ r=1+random maxn n.r=n.r+1 ] n=n*600/(max n) ht boundingbox pu setxy -400 n.1-300 pd for [x 1 maxn] [ setxy x-400 (n.x)-300 ] end