namespace;
include rt;

fn sp() { rt.put_c(32); return 0; }
fn pm(x, prec, mode) { asm { x @ prec @ mode @ #1236 } return 0; }
fn parsed(s) { return asm { s @ #1222 }; }
fn ok(a, b) {
	let w = asm { a @ b @ ^ };
	if (w) rt.put_n(0); else rt.put_n(1);
	return 0;
}

fn main() {
	let z = 0.0 * -1.0;
	let hi = parsed("9007199254740994");
	let lo = parsed("9007199254740992");
	pm(1.0e308, 0, 0); sp();
	pm(1.0e-10, 0, 0); sp();
	pm(z, 0, 0); sp();
	pm(1.0 / 0.0, 0, 0); sp();
	pm(-1.0 / 0.0, 0, 0); sp();
	pm(0.0 / 0.0, 0, 0); sp();
	pm(0.1, 0, 0); sp();
	pm(1.5, 2, 1); sp();
	pm(1.25, 4, 2); sp();
	pm(1.0e20, 6, 1); sp();
	pm(1.0e40, 0, 0); sp();
	ok(parsed("1.5"), 3.0 / 2.0);
	ok(parsed("0.1"), 1.0 / 10.0);
	ok(parsed("inf"), 1.0 / 0.0);
	ok(parsed("-inf"), -1.0 / 0.0);
	ok(parsed("-0"), z);
	ok(parsed("9007199254740993"), lo);
	if (hi == lo) rt.put_n(0); else rt.put_n(1);
	if (parsed("5e-324")) rt.put_n(1); else rt.put_n(0);
	if (parsed("1e-400")) rt.put_n(0); else rt.put_n(1);
	if (parsed("-nan") == parsed("nan")) rt.put_n(0); else rt.put_n(1);
	rt.put_c(10);
	return 0;
}