fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) datatype rock_paper_scissors = Rock | Paper | Scissors datatype result = Won | Lost | Drew exception WrongInput fun intToRockPaperScissors 0 = Rock | intToRockPaperScissors 1 = Scissors | intToRockPaperScissors 2 = Paper | intToRockPaperScissors _ = raise WrongInput fun findResult Rock Rock = Drew | findResult Rock Scissors = Won | findResult Rock Paper = Lost | findResult Scissors Rock = Lost | findResult Scissors Scissors = Drew | findResult Scissors Paper = Won | findResult Paper Rock = Won | findResult Paper Scissors = Lost | findResult Paper Paper = Drew fun resultToString Won = "Won" | resultToString Lost = "Lost" | resultToString Drew = "Drew" val () = let val n = readInt () val k = readInt () val ans = resultToString (findResult (intToRockPaperScissors n) (intToRockPaperScissors k)) in print ans end