$$=ord("
");$$=$$
*$$+6;$S
.=$$.'S'
;$$=$$-9
;$S.=$$;
        for(5555
        ..5569){
        $$++;}$S
        .='S'.$$
        ;$S.='S'
        .($$-$$%
                13);$$='
                (';print
                map chr(
                $_),((((
                split'S'
                ,$S))));