$/=$];$_=<>;s/=/==/g;s/^([^:
]*)$/;PRINT($1)/mg;eval's/(\w)(\d)/$1 $2/;s/}{/}ELSE{/;s/(.*):{\./";SUB $1"x2 ."\{"/ge;s/ ?(.)\./.MY \$$1=SHIFT;/;s/\$(.)(.*[^\$])\1/\$$1$2\$$1/;s/ (([^;{}()
]|\([^)]+\))+) / $1,/;'x99;s/(?<!if )\(/+(/g;$\='
';eval lc$_