sub minkowski {
    my ($d, $level) = @_ ;

    fd($d), return unless $level--;

    $d /= 4;

    minkowski($d,$level);
    rt(-90); minkowski($d,$level);
    rt( 90); minkowski($d,$level);
    rt( 90); minkowski($d,$level);
    minkowski($d,$level);
    rt(-90); minkowski($d,$level);
    rt(-90); minkowski($d,$level);
    rt( 90); minkowski($d,$level);
}