#!/usr/bin/perl -l
$c.=1+int rand 6for 6..9;while(<>){/^\d{4}$|!/||next;$_.=$c;4while
s+(.)(.{4})\1+?$2*+s;4while s-(\d)(.*\n.*)\1-+$2-;print/[*+]/g;/\*{4}|!/&&die}