$s=q($s=q(%s);
    printf ($s,$s);
    );
    printf ($s,$s);