begin
comment transform long real to string (longbase10 and longbase16);
	string (20) s;
	long real n;
	n := 1237.89123456789;
	write(n);
	s := longbase10(n);
	write(s);
	comment s := base16(n);
	comment write(s);
end.