chop,printf"$_ = 6 * %.f ".qw(+ -)[$_%6>1]." 1\n",$_/6 for<>