#!/usr/bin/perl
$_='print(chr(62+ -+1+ length))foreach(((m /(\S+)/g)))';eval;