to rechteck :b :l
  repeat 2 [fd :b rt 90 fd :l rt 90]
end