fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val p = readInt () val nk_s = List.tabulate (p, fn _ => (readInt (), readInt())) fun printAns [] = ignore () | printAns ((n, k)::tl) = ( if (n - 1) mod (k + 1) = 0 then print "Lose\n" else print "Win\n"; printAns tl ) in printAns nk_s end