#!/usr/bin/perl
# your code goes here
for (<DATA>) {
$x = $m = $X % $y;
my ($n, %h);
$h{$x} = 1;
while(1) {
$x = 10 * $x % $y;
$n++;
last if $h{$x};
$h{$x} = 1;
}
print "$X/$y => ", ($x ? $n : $x), "\n"; }
__DATA__
1234 555
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpmb3IgKDxEQVRBPikgewooJFgsICR5KSA9IHNwbGl0OwokeCA9ICRtID0gJFggJSAkeTsKbXkgKCRuLCAlaCk7CiRoeyR4fSA9IDE7CndoaWxlKDEpIHsKJHggPSAxMCAqICR4ICUgJHk7CiRuKys7Cmxhc3QgaWYgJGh7JHh9OwokaHskeH0gPSAxOwp9CnByaW50ICIkWC8keSA9PiAiLCAoJHggPyAkbiA6ICR4KSwgIlxuIjsKfQpfX0RBVEFfXwoxMjM0IDU1NQo=