paper 0
pen 100
repeat a 0 40
{
line 0 a a 0
line 100 (100-a) (100-a) 100
}
line 0 0 100 100
repeat b 0 2
{
line (60 +b) (20+b) (20+b) (60+b)
line (70+b)(40+b) (40+b)(70+b)
}
field 5 15 10 20 0
command skin c d
{
field c d (c+10) (d-5) 100
}
repeat d 90 10
{
repeat t 0 3
{
repeat c 10 75
{
skin c d
}
}
}
line 5 20 5 90
line 5 90 90 90
line 90 90 90 5
line 90 5 5 5