$e*=3or$e=($i+=$e&&print$s.~๕)<$n|=pow(3,fgets(STDIN))+$s=~ลล;)$s.=str_pad($i/$e%3&1?'':$s,$e*2).$s;