pen(1)

define rect(l) { forward(l) left(90) forward(l) left(90) forward(l) left(90) forward(l) left(90) }

repeat(4)
{
  right(90)
  rect(100)
}