sub intperl {
	return int($_[0]);
}