@b=("::");for(1..<>){@n=();for(@b){push@n,$_ x3}for(@b){push@n,$_." "x length($_).$_}for(@b){push@n,$_ x3}@b=@n;}print $_.$/for@b