{
	print $0 |& "to_upper"
	"to_upper" |& getline hold
	print hold
	}