use strict; use warnings; my $p = <>; my($n, $k); for(1..$p){ ($n, $k) = split ' ', <>; print+($n-1) % ($k+1) ? 'Win' : 'Lose',"\n"; }