@l=(116,111,109,109,111,110,116,101,10);&s;
$l[0]=$l[7];$l[1]+=3;$l[2]-=6;$l[3]=$l[4];$l[4]+=8;
$l[5]=$l[3];$l[6]-=8;$l[7]++;&s;sub s{print(map{chr($_)}@l)}