1load("docdraw.mac");
2im: apply(
3    'matrix,
4    makelist(makelist(random(200),i,1,30),i,1,30)
5)$
6
7docdraw2d("figures/draw_palette2",
8	image(im,0,0,30,30))$
9