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