Koch snowflake

: PARAMS
  2 PICK 3 / 2 PICK 1 - ;
: SIDE
  DUP 0 = IF DROP MOVE ELSE PARAMS SIDE -60 TURN PARAMS SIDE 120 TURN PARAMS SIDE -60 TURN PARAMS SIDE DROP DROP THEN ;
: KOCH
  3 0 DO 2 PICK 2 PICK SIDE 120 TURN LOOP ;