{max} の調べ方

perl -e " $_ **= $_ , / {$_} / for 2 .. 42;"

⇒ 32766