($a,$b)=($p,$q)=<>=~/\d+/g;($a,$b)=($b,$a%$b)while$b;$\+=/ />(1&($_+$')/($a||=~0)&$p/$a&$q/$a|$_%$a|$'%$a)for<>;print