($s,$k)=glob<>;
print $s % $k