to koch :s
  ifelse (:s > 1) [
    koch :s/3
    pu fd :s lt 60
    koch :s/3
    pu fd :s rt 120
    koch :s/3
    pu fd :s lt 60
    koch :s/3
    pu rt 60 bk :s lt 120 bk :s rt 60 bk :s
   ] [
    pd
    fd :s lt 60 fd :s rt 120 fd :s lt 60 fd :s
    pu
    bk :s rt 60 bk :s lt 120 bk :s rt 60 bk :s
   ]
end