//mutation-mortality-reason
norefresh
set index 0
paper 75
pen 1
forever
{
set <array (1 + index)> <mouse 1>
set <array (2 + index)> <mouse 2>

repeat a 29 92
{
pen <array (((index + a) % 70) + 10)>
line 0 a a 0
set n (((((index + a) % 20) + 500) % 100) + 100)
pen <array n>
line (59-a) 100 100 (4-a)

set index ((index + 1) % 100)
}
refresh
}