$;=$|;$_=q;1-21010110101;;@;
=map{1..+30+$_,map{$"}1..7}m((-?\d))g;
$==pop;map{unshift+@;,$"}2..chop$=;
print+map{$_=>$"x(y^^^c^3)=>++$;%7?q++:"
"}@;