procedure swrite(f: string; var x: scalar);
var
  t: text;
begin { swrite }
  write('(swrite ',trim(f)); flush(output);
  rewrite(t,f);
  writeln(t,rst(x.l));
  writeln(t,rst(x.u));
  flush(t);
  write(')'); flush(output);
end { swrite };

