#!perl
use strict ;

my$print="0";my@foreach
=([4,2,4,2,3,3,1,4],[1,2,1
,2,1,5,1,2,1,2,1,4],[4,2,4,
2,3,3,1,4],[1,5,1,5,1,1,1,
3,1,4],[1,5,4,2,1,2,1,2,4,1]
);for(0..$#foreach){foreach
(@{$foreach[$_]}){for(1..$_)
{print $print;}if($print=~/^0$/)
{$print=' '}else{$print="0";}}
print"\n";}#Made in Costa Rica