// modulus // uses dbn's integer-division // to compute (x mod y) and display the // result as an intensity. repeat a 1 100 { repeat b 1 100 { set [a,b] (a - (a / b) * b) } }