use strict; use warnings; my ($n, $k) = split / /, <>; if($n == $k) { print "Drew\n"; } elsif (($n + 1 == $k)||(($n == 2)&&($k == 0))) { print "Won\n"; } else { print "Lost\n"; } exit;