perl -E "say$_=3;/I/?die:say$_*=$_ while--$_"         #35

##</code><code>##