begin
comment transform real to string (base10 and base16);
	string (12) s;
	real n;
	n := 1237.89;
	write(n);
	s := base10(n);
	write(s);
	comment s := base16(n);
	comment write(s);
end.