sub hangman {
@w=split//,pop;@w{@w}=("-")x@w;while($g<8){print@w{@w},"$/?";$_=<>;chop;$w{$_}?$w{$_}=$_:$g++;(join"",values%w)!~/-/&&last}$g
}

print hangman("Hangman")<8 ? "Winner!" : "RIP";