print join $s, ('') x 4;