$lcm = $r * 4096;
$lcm /= 2 until $lcm % 8192;
$c = int( $s/$lcm) * $lcm;

##</code><code>##

use strict;
use warnings;

my $s = 3221225472;
my $r = 5007;
my $lcm = $r;
my $m = 0;
$lcm/=2 while 12>$m++ and !($lcm%2);
$lcm *= 4096;
my $c = int( $s/$lcm ) * $lcm;

print "$c\n";