#!perl -p
($a,$b,$c,$d)=split;$_=$a*$b%$d*$c%$d