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