$"="";print"@{[&{sub{($i,$j,@_)=(1,1,split//,
'hrP kc eeatenltarohsr u.J');while(@_){for(1..$i)
{@_=(pop,@_)}push@t,shift;($i,$j)=($i+$j,$i)}@t}}]}\n";