paper 0
pen 100
command rectangle a b c d
{
   line a b d b
   line a b a c
   line a c d c
   line d b d c
}

command rectInrect w x y z
{
   repeat b 0 10
   {
      set a (b*12)
      pen 30
      rectangle (50-a) (50-a) (a+50) (a+50)
   }
}
rectInrect 10 15 40 60

pen 80
repeat a 40 60
{
   line a 20 40 60
}

repeat a 30 80
{
   pen 20
   line 10 a 90 80
}

command zigzag e f
{
   line e 20 f 30
   line f 30 e 40
   line e 40 f 50
   line f 50 e 60
   line e 60 f 70
   line f 70 e 80
   line e 80 f 90
   line f 90 e 95
}

pen 90
zigzag 20 30
pen 60
zigzag 27 34

command fan c d
{
   pen 100
   line 50 98 c d
   line 50 98 (c+5) (d-1)
   line 50 98 (c+10) (d-3)
   line 50 98 (c+15) (d-5)
}
fan 40 55

command darktrap m n o
{
   line n m (n+5) (m+10)
   line n m o m
   line o m (o+5) (m+10)
   line (n+5) (m+10) (o+5) (m+10)
}

command lighttrap f g h
{
   line (g+5) f (h+5) f
   line (g+5) f g (f+10)
   line (h+5) f h (f+10)
   line h (f+10) g (f+10)
}

pen 60
repeat m 60 90
{
   darktrap 8 m 90
}
pen 60
repeat m 60 90
{
   darktrap 28 m 90
}
pen 60
repeat m 60 90
{
   darktrap 48 m 90
}
pen 60
repeat m 60 90
{
   darktrap 68 m 90
}
pen 40
repeat m 60 90
{
   lighttrap 18 m 90
}
pen 40
repeat m 60 90
{
   lighttrap 38 m 90
}
pen 40
repeat m 60 90
{
   lighttrap 58 m 90
}
pen 40
repeat m 60 90
{
   lighttrap 78 m 90
}

pen 75
repeat t 5 10
{
   line t 0 t 100
}