sub append{
	my $appendstring = @_[0];
	$res= "$res$appendstring";
}