sub rev ($) {
	$_ = shift;
	s/^(.)(.*)$/swap($2)."$1"/e if (length>1);
#	print "in swap: $_\n";
	return $_;
}