sub k($) {
  my $l = $_[0];
  if ($l > 8) {
    printf "forward(%.0f)forward(%.0f)right(3)", $l, $l;
    k($l * 0.86);
    printf "right(60)";
    k($l * 0.7);
    printf "left(63)pen(0)forward(-%.0f)left(60)pen(1)", $l;
    k($l * 0.7);
    printf "right(60)pen(0)forward(-%.0f)pen(1)", $l;
  }
}
print "forward(-100)pen(1)";
k(30);