#nowarn "40" open System module Prime = let isPrimes max = let isPrime = Array.init (max + 1) (fun _ -> true) isPrime.[0] <- false isPrime.[1] <- false for i in 2 .. max do if isPrime.[i] then for j in 2 * i .. i .. max do isPrime.[j] <- false else () isPrime let primeNums max = let isPrimes = isPrimes max [ for i in 0 .. max do if isPrimes.[i] then yield i ] let memoize f = let memo = new Collections.Generic.Dictionary<_,_>() (fun x -> match memo.TryGetValue x with | true, v -> v | _ -> memo.[x] <- f x memo.[x]) let isWinable n = let primes = Prime.primeNums n let rec dfs = let inter = memoize (fun (num, isMyTurn) -> match num, isMyTurn with | x, _ when x < 0 -> failwith "Error" | 0, true | 1, true -> true | 0, false | 1, false -> false | x, turn when x = n -> primes |> Seq.where(fun p -> x - p >= 0) |> Seq.exists (fun y -> dfs (x - y, not turn)) | x, turn -> primes |> Seq.where(fun p -> x - p >= 0) |> Seq.forall (fun y -> dfs (x - y, not turn))) inter dfs (n, true) let N = Console.ReadLine() |> int isWinable N |> function | true -> "Win" | _ -> "Lose" |> Console.WriteLine