#!/usr/bin/perl

undef $/;
(my $line=<>)=~s/\s//g;
my @sifrat=split '', $line;
for (my $j=0; $j<23; $j++) {
    for (my $i=0; $i<7; $i++) {
	printf "%2s", $sifrat[$i*23+$j];
    }
    print "\n";
}	
