begin
comment
library 1;
real
x; x := .; outreal(1, x);
end