$R = 12; 
$S = 2*1024**3; 
$c -= 4096 while $c % $r;