sub rotL{
my @t=(); my $i=0; my $j;
for (@_){
$i=0, $j=length; $t[$i++].=chop while $j--
}
return @t
}

@_=<>;
chomp @_;
@_=rotL @_;
$,="\n";
print @_