n <- Frequency( [20,Int(range=>[-1,1])], [1,Int] )