$a=2-$b+6*($b=$a||3),print"n = $b , k = ",$c=2-$d+6*($d=$c),$/for-2..9