lerne q_sierp laenge [
  wenn laenge > 1 [
    wiederhole 4 [
      q_sierp laenge*0.4
      vorwärts laenge
      nachlinks 90
    ]
  ]
]

zurücksetzen
papiergröße 800, 600
gehe 100, 500
nachrechts 90
q_sierp 401