print/(.* )?(.): (.*)/?$1?"set $1of $2 to $2=$3":"value of $2 is now $3":/.$/?"$& = ".('3
you win!','1
tie!','13
you lose!
a wins!')[$$%3]:'rule d not set
'x($.>8),$/while<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).