(define-values (n k) (apply values (map string->number (string-split (read-line) " ")))) (print (case (mod (+ 3 (- n k)) 3) ((0) "Drew") ((1) "Lost") ((2) "Won")))