import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromJust)
import Text.Printf
import Debug.Trace

readInts :: B.ByteString -> [Int]
readInts = map (fst . fromJust . B.readInt) . B.words

getInts :: IO [Int]
getInts = liftM readInts B.getLine

win 0 = "Lose"
win _ = "Win"

main = do
  t <- readLn :: IO Int
  forM_ [1..t] $ \_ -> do
    [n,k] <- getInts
    putStrLn $ win $ (n-1) `mod` (k+1)