$x=join'',sort{.5<=>rand}A..Z;$s=pop;$n=1+pop;$t="%${n}s\n";map{$a[2]+=$_ for@a=map{int rand".1e$n"}1,1;eval"y/0-9/$x/"for@a;printf" $t+$t ".'-'x$n."\n $t\n",@a}1..$s