# init map sub j { $_=shift; $a.=m/^1/?("#$b$=$=$b#$,"x12):"#".eval( )."#$,"; @_&&j(@_) }