Untitled Document

J
e
e
e
e
e
5

pen 0
forever
{
repeat a 20 80
{
repeat b 20 80
{
set[ 20 b] 0
set [a b] 30
line 50 50 a 20
same? a 20
{
paper 100
line 50 50 a b
}
notsame? a 20
{
same? b 80
{
paper 100
line 20 20 a 20
line 20 80 a 80
line 50 50 a b
}
same? a 80
{
set [a b] 0
}
}
}
}
}