-p
($d,$s,$=)=split/[d+]/;map$=+=1+rand$s,1..$d;$_=$=.$/
         1         2         3         4         5
12345678901234567890123456789012345678901234567890123
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]