$_='
##### init: #####
&p;
#### restart: ###
&p;
##### main: #####
&p;
#### finish: ####
&p;
sub p {select'.('$`,'x3).'($|=print)/9 for@_}
';

$.="he,qng]dJshQ ruJr Paaktg oetljryccwsR_djeYK^Y[Ued]_IW_WPPijsP^i";
s#([^\#\s])(?=.* \#)|;#$^=(-97+unpack U,$1)%length$.;$&!~/;/?$.=~s/\
?(?<=.{$^})./$\.="'$&',";""/e:($/=$\,$\="","($/)".$&)#eg;eval