$;=1+shift;$t="%$;s
";@x=sort{.5-rand}A..Z;map{printf" $t+$t-$t $t
",grep 1+s/\d/$x[$&]/g,@a=map(0|rand".1e$;",0,1),'-'x$;,$a[0]+$a[1]}1..pop