gps%o)nbq|3++sboe~1//24*|qsjou)qbdl)#d#-75+)tjo)%o+%`*,2***gps)1//777*<~

##</code><code>##

for$n(map{2**rand}0..13){print(pack("c",64*(sin($n*$_)+1)))for(0..666);}

##</code><code>##

for $n (map {2**rand} 0..13) {
        print ( pack ("c", 64*(sin($n * $_)+1)))
            for(0..666);
}