($a,$b,$c,$d)=glob<>;print+($a*$b)%$d*$c%$d