// the art of concealment
load dbngraphics.dbn
paper 75
field 2 6 98 98 25
pen 100
circle 50 20 46 100
pen 100
repeat A 0 50
{
line (50/A) A (A+50) 0
}

repeat A 0 10
{
repeat B 0 100
{
set [A B] (A*B)
}
}