sub q{$;=1;$q='';$q.=int(rand(9))for(5..8)}sub _{print@_}&q;for(;;){$:=$~=0;_
"$/$; ";chop($_=<>);if(/^\d{4}$/){$_.=q,_._,.$q;$:++while+s/(.)(.{6})\1/;$2,/
;$~++while+s/(.)(...+)\1/;$2$1/;_"$~W$:R ";++$;;$:==4|$;>10&&_($q)&&&q}}